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BURROUGHS EXTENSIONS TO ANSI 74 COBOL 


Programming applications are written in the COBOL74 language as specified in this B 1000 Systems COBOL74 
Reference Manual. The source language herein described is the USA Standard COBOL, X3.23-1974, which 
implements the lowest defined level of the Report Writer Module, and also the highest defined level of these 
Modules: Nucleus, Table Handling, Sequential I-O, Relative I-O, Inde I-O, So ge, Segmentation, Li- 
beaby. Debild.. Inter Prose (Communicalion: and. Communication. al Met ected Pe 
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INTRODUCTION 


This manual provides a complete description of COBOL74 (COmmon Business Oriented Language) as imple- 
mented for use on the Burroughs B 1000 System. This concept of COBOL74 is designed along the guidelines 
of the American National Standards Institute (ANSI) 1974. This edition contains changes throughout. 


COBOL74 ADVANTAGES 


The long list of COBOL74 advantages is derived chiefly from its intrinsic quality of permitting the programmer 
to state the problem solution in English prose, and thus provide automatic program and system documentation. 
When users adopt in-house standardization of elements within files plus well-chosen data-names before at- 
tempting to program a system, maximum documentational advantages of the language described herein are ob- 
tained. 


To a computer user. Burroughs COBOL74 offers the following major advantages: 


1. Expeditious means of program implementation. 

2. Accelerated programmer training and simplified retraining requirements. 

3. Reduced conversion costs when changing from a computer of one manufacturer to that of another. 

4. Significant ease of program modification. 

5. Standardized documentation. 

6. Documentation which facilitates nontechnical management participation in data processing activities. 

7. Efficient object program code. 

8. Segmentation capability which sets the maximum allowable program size well in excess of any practi- 
cal requirement. 

9. Because of the incorporation of debugging language statements. a high degree of sophistication in 
program design is achieved. 

10. A comprehensive source program diagnostic capability. 


COBOL74 CONCEPTS 


A program written in COBOL74. called a source program, is accepted as input by the COBOL74 compiler. 


The compiler verifies that each source statement is syntactically correct. and then converts them into 
COBOL74 S-code. 


The executable program can then be executed on the B 1000 System using the COBOL74 interpreter. The in- 
terpreter causes the system hardware to perform the operations specified by the S-code and thus the source 
program, 


The B 1000 COBOL74 compiler operates under the control of the Master Control Program (MCP). Similarly. 
the S-code generated by the compiler is executed under control of the MCP. 


A COBOL program that was compiled with the ANSI 68 COBOL compiler must be recompiled with the 
COBOL74 compiler in order to run with the COBOL74 interpreter. 


1108883-001 xix 


ORGANIZATION 


B 1000 Systems COBOL74 Reference Menual 


This manual consists of 11 sections and 6 appendices: 


XX 


Section 


6 


Contents 


PROGRAM ORGANIZATION 


Introduces the four divisions of a COBOL source program 
and describes the major functions of each. 


LANGUAGE CONCEPTS 


The rules for creating a COBOL74 source program are 
defined in this section. 


CODING FORM 


The standard format of the COBOL74 coding form and the 
rules for spacing are described in this section. 


IDENTIFICATION DIVISION 


The structure of the IDENTIFICATION DIVISION and the 
rules for coding are given. 


ENVIRONMENT DIVISION 


The structure of the ENVIRONMENT DIVISION and the 
rules for coding are given. 


DATA DIVISION 
The four sections of the DATA DIVISION are described. 
PROCEDURE DIVISION 


The rules for coding and structuring the PROCEDURE 
DIVISION are given. 


FILE ATTRIBUTES 


The file attribute names and the rules for changing attributes 
are given. 


DATA BASE MANAGEMENT 


This section contains the verbs and constructs of COBOL74 
that are available for interfacing with DMSII. 


DEBUG 
Contains an explanation of the debug facilities available. 


COBOL74 COMPILER CONTROL Compiler options which 
are available in the COBOL74 compiler are explained. 
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SECTION 1 
PROGRAM ORGANIZATION 


COBOL74 SOURCE PROGRAM DIVISIONS 


Every COBOL74 source program must contain these four divisions in the following order: 


IDENTIFICATION 
ENVIRONMENT 
DATA 
PROCEDURE 


The IDENTIFICATION DIVISION identifies the program. In addition to required information, the program- 
mer may include such optional pieces of information as the date compiled and programmer’s name for 
documentation purposes. This division is completely machine-independent and does not produce object code. 


The ENVIRONMENT DIVISION specifies the equipment being used. It contains computer descriptions and 
some information about the files the program will use. 


The DATA DIVISION contains not only file and record descriptions describing the data files that the object 
program manipulates or creates, but also the individual logical records which comprise these files. The charac- 
teristics or properties of the data are described in relation to a standard data format rather than an equipment- 
oriented format. Therefore. this division is to a large extent. computer-independent. While compatibility among 
computers cannot be absolutely assured. careful planning in the data layout will permit the same data descrip- 
tions. with minor modification, to apply to more than one computer. 


The PROCEDURE DIVISION specifies user-supplied steps for computer execution. These steps are expressed 
in terms of meaningful English words. statements. sentences, and paragraphs. This division of a COBOL74 
program is often referred to as the ‘‘program.’’ In reality, it is only part of the total program, and alone is 
insufficient to describe the entire program. This is true because repeated references must be made (either ex- 
plicitly or implicitly) to information appearing in the other divisions. This division, more than any other, allows 
the user to express thoughts in meaningful English. Concepts of verbs to denote actions, and sentences to 
describe procedures are basic. as is the use of conditional statements to provide alternative paths of action. 
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REQUIRED HEADERS 


The standard for COBOL74 requires that a program consist of certain divisions, sections, and fixed paragraph 
names known as headers. 


The following elements are the minimum required for a COBOL74 program: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. MINIMUM, 

ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. B-1000. 
OBJECT-COMPUTER. B-1000. 

DATA DIVISION, 

PROCEDURE DIVISION. 

STARTP. 


STOP RUN. 
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SECTION 2 
LANGUAGE CONCEPTS 


GENERAL 


As stated in Section 1, COBOL74 is a language based on English and is composed of words, statements, sen- 
tences, and paragraphs. The following paragraphs define the rules to be followed in the creation of this lan- 
guage. The use of the different constructs formed from the created words is covered in subsequent sections 
of this document. 


LANGUAGE DESCRIPTION NOTATION 


A nearly universal form of notation exists for COBOL reference manuals. This manual uses that notation as 
described in the paragraphs that follow. 


The apostrophe (’) is used to delimit characters with specific meanings. Other than its use in this manual as 
a delimiter, it has no specific use in the COBOL language. 


KEY WORDS 


All underlined upper-case words are key words and-are required when utilizing related functions. Omissions 
of key words will cause error conditions at compilation time. An example of key words follows: 


F 2 I — 


The key words are IF, NOT, NUMERIC, and ALPHABETIC. 


OPTIONAL WORDS 


All upper-case words not underlined are optional words included for readability only and may be included or 
excluded in the source program. In the preceding example, the optional word is IS. 


GENERIC TERMS 


All lower-case words represent generic terms which are used to represent COBOL words, literals, PICTURE 
character-strings, comment-entries, or a complete syntactical entry that must be supplied in that format posi- 
tion by the programmer. Where generic terms are repeated in a general format, a number or letter appendage 
to the term serves to identify that term for explanation or discussion. Identifier-1 and identifier-2 are generic 
terms in the following example: 


MOVE identifier-1 TO identifier-2 


BRACES 


The following symbols are braces: { }. When words or phrases are enclosed in braces, a choice of one of 
the entries must be made. In the previous example in the subsection titled Key Words, either NUMERIC or 
ALPHABETIC must be included in the statement. 
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BRACKETS 


The following symbols are brackets: [ ]. Words and phrases enclosed in brackets represent optional portions 
of a statement. A programmer wishing to include the optional feature may do so by including the entry shown 
between brackets. Otherwise, the optional portion may be omitted. ( [NOT] in the example titled Key Words, 
is optional.) 


LEVEL-NUMBERS 


When specific level-numbers appear in data description entry formats, those specific level-numbers are re- 
quired when such entries are used in a COBOL74 program. In this document, the form 01, 02, ... , 09 is used 
to indicate level-numbers | through 9. 


ELLIPSIS 


The presence of the ellipsis (three consecutive periods (...) ) within any format indicates the position at which 
repetition may occur at the programmer’s option. The portion of the format that may be repeated is defined 
in the following paragraph. 


The ellipsis applies to the words between the determined pair of delimiters. Given the ellipsis in a clause or 
statement format, scanning right to left, determine the right bracket or right brace immediately to the left of 
the ...; continue scanning right to left and determine the logically matching left bracket or left brace. 


FORMAT PUNCTUATION 


The separators comma and semicolon are used to improve the readability of the program. Suggested uses are 
shown in General Format subsections through this manual, however, use of these separators is optional. In 
the source program, the comma, semicolon. and space separators are interchangeable. If desired, a semicolon 
or comma may be used between statements in the PROCEDURE DIVISION. 


Paragraphs within the IDENTIFICATION and PROCEDURE DIVISIONS and entries within the ENVIRON- 
MENT and DATA DIVISIONS must be terminated by the separator period. When a single period is shown 


in a format, it must appear in the same position whenever the source program calls for the use of that 
particular statement. 


SPECIAL CHARACTERS IN FORMATS 


The characters *+’, ’-’, ’>’, °<’, °=", when appearing in formats, although not underlined, are required when 
such formats are used. 


2-2 


B 1000 Systems COBOL74 Reference Manual 
Language Concepts 


CHARACTER SET 


The COBOL74 character set for the B 1000 System consists of the following 52 characters: 


0 through 9 . period or decimal point 
A through Z ; semicolon 
blank or space « quotation mark 
+ plus sign ( left parenthesis 
- minus sign or hyphen ) right parenthesis 
* asterisk > greater than symbol 
/ slash <_ less than symbol 
= equal sign @ “at” sign 


$ currency sign » comma 


CHARACTERS USED FOR WORDS 


The character set for words consists of the following 37 characters: 


O through 9 
A through Z 
~ (hyphen) 


PUNCTUATION CHARACTERS 


The following characters may be used for program punctuation: 


@ “at” sign space or blank 
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« quotation mark 
( left parenthesis 
) right parenthesis 


period 
comma (see following note) 


semicolon 


NOTE 


For enhanced readability of the source program, commas may be used between 
statements, at the programmer’s discretion. Use of commas implies that any suc- 
ceeding statement is to be included as an element of the prior statement. 
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EDITING CHARACTERS 


The COBOL74 compiler accepts the following characters in editing: 


$ currency sign +- plus 

«x asterisk (check protect) -- minus 

, comma CR credit 

/ slash DB debit 

B_ space or blank insert 7. zero suppress 
Q zero insert . period 


CHARACTERS USED IN ARITHMETIC EXPRESSIONS 


The COBOL74 compiler accepts the following characters in arithmetic expressions: 


ee me cote 


a 


+ addition ** 2xponentiation 
- subtraction ( left parenthesis 
* multiplication ) right parenthesis 


/ division 


a eS SN NA A SR RE Essense Se eS 


CHARACTERS USED IN RELATION CONDITIONS 
The COBOL74 compiler accepts the following characters in relation conditions: 


= equal sign 
< less than symbol 
> greater than symbol 


LANGUAGE STRUCTURE 


The individual characters of the language are concatenated to form character-strings and separators. A separa- 
tor may be concatenated with another separator or with a character-string. A character-string may only be 
concatenated with a separator. The concatenation of character-strings and separators forms the text of a source 
program. 


SEPARATORS 


A separator is a string of one or more punctuation characters. The rules for formation of separators are: 


!. The punctuation character space is a separator. Anywhere a space is used as a separator, more than 
one space may be used. 


2. The punctuation characters comma. semicolon, and period are separators. 
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. The punctuation character quotation mark is a separator. An opening quotation mark must be immedi- 


ately preceded by one of the separators space, comma. semicolon, or left parenthesis; a closing quota- 


tion mark must be immediately followed by one of the separators space. comma, semicolon, period, 
or right parenthesis. 


Quotation marks may appear only in balanced pairs delimiting nonnumeric literals except when the 
literal is continued. 


. The punctuation characters right and left parentheses are separators. Parentheses may appear only in 


balanced pairs of left and right parentheses delimiting subscripts, indices, arithmetic expressions, or 
conditions. 


. Pseudo-text delimiters are separators. An opening pseudo-text delimiter must be immediately preceded 


by a space; a closing pseudo-text delimiter must be immediately followed by one of the separators 
space, comma, semicolon, or period. 


Pseudo-text delimiters (==) may appear only in balanced pairs delimiting pseudo-text. 


. The punctuation character @ is a separator. An opening @ character must be preceded immediately 


by one of the separators space, comma, semicolon, or left parenthesis; a closing @ character must 


be immediately followed by one of the separators space, comma, semicolon, period. or right parenthe- 
sis. 


At signs (@) may appear only in balanced pairs delimiting hexadecimal literals. 


. The separator space may optionally immediately follow any separator except the opening quotation 


mark. In this case, a following space is considered as part of the nonnumeric literal and not as a se- 
parator. 


Any punctuation character which appears as part of the specification of a PICTURE character-string 
or numeric literal is not considered as a punctuation character, but rather as a symbol used in the 
specification of that PICTURE character-string or numeric literal. PICTURE character-strings are de- 
limited only by the separators space. comma, semicolon, or period. 


The rules established for the formation of separators do not apply to the characters which comprise 
the contents of nonnumeric literals, comment-entries, or comment lines. 


CHARACTER-STRINGS 


A character-string is a character or sequence of contiguous characters which forms a COBOL74 word. literal, 
PICTURE character-string, or comment-entry. A character-string is delimited by separators. 


DEFINITION OF WORDS 


A COBOL74 word is created from a combination of not more than 30 characters. selected from the following: 
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A word is ended by a space, period, comma, or semicolon. A word may not begin or end with a hyphen. 
(A literal constitutes an exception to these rules, as explained in a paragraph entitled Literals in this section.) 


A user-defined word is a COBOL74 word that must be supplied by the user to satisfy the format of a clause 


or statement. 


TYPES OF WORDS 


COBOL74 contains the following word types: nouns (user-defined words), verbs, and reserved words. 


NOUNS 


Nouns are divided into special categories: 


File-name 
Record-name 
Data-name 
Condition-name 
Mnemonic-name 
Index-name 


Paragraph-name 


Family-name 
Cd-name 
Text-name 
Library-name 
Program-name 
Alphabet-name 


Siection-name 


The length of a noun must not exceed 30 characters. “or purposes of readability, a noun may contain one 
or more hyphens. However, the hyphen must neither begin nor end the noun (this does not apply to literals). 


All nouns within a given category must be unique, either because no other noun in the same source program 
has identical spelling or punctuation, or because uniqueness can be insured by qualification. With the exception 


of paragraph-name, section-name. text-name. library-nare, and family-name. all user-defined words must con- 
tain at least one alphabetic character. 


File-Name 


A file-name is a noun containing at least one alphabetic character assigned to designate a set of data items. 
The contents of a file are divided into logical records made up of any consecutive set of data items. 


Record-Name 


A record-name is a noun containing at least one alphabetic character assigned to identify a logical record. A 
record can be subdivided into several data items, each distinguishable by a data-name. 


Data-Name 


A data-name is a noun assigned to identify elements within a record or work area and is used in COBOL74 
to refer to an element of data. or to a defined data area containing data elements. Each data-name must contain 
at least one alphabetical character. 
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Condition-Name 


A condition-name is the name assigned to a specific value, set of values, or range of values within the com- 
plete set of values that a data item may assume. The data item is a conditional variable. The condition-name 
must contain at least one alphabetic character and must be unique, or be able to be referenced uniquely 
through qualification. A conditional variable may be used as a qualifier for any of its condition-names. If refer- 
ences to a conditional variable require indexing, subscripting, or qualification, then references to any of its 
condition-names also require the same combination of indexing, subscripting, or qualification. A condition- 
name is used in conditions as an abbreviation for the relation condition; its value is TRUE if the associated 
conditional variable is equal to one of the set values to which that condition-name is assigned. 


Condition-names may be defined in the DATA DIVISION, or in a SPECIAL-NAMES paragraph within the 


ENVIRONMENT DIVISION where a condition-name must be assigned to the ON STATUS or OFF STAT- 
US, or both, of defined switches. 


Minemonic-Name 


The use of mnemonic-names provides a means of relating certain hardware equipment names to problem-ori- 
ented names the programmer may wish to use. These associations are established in the SPECIAL-NAMES 
paragraph of the ENVIRONMENT DIVISION. 


Index-Name 
An index-name is a word with at least one alphabetic character that names an index associated with a specific 


table (refer to Indexing in this section). An index is a register, the contents of which represent the character 
position of the first character of an element of a table with respect to the beginning of the table. 


Paragraph-Name 


A paragraph-name is a word which names a paragraph in the PROCEDURE DIVISION. Paragraph-names are 
equivalent only if composed of the same sequence of the same number of digits and/or characters. 


Section-Name 


A section-name is a word which names a section in the PROCEDURE DIVISION. Section-names are 
equivalent only if composed of the same sequence of the same number of digits and/or characters. 


Other Categories 
See the glossary in Appendix D for definitions of all other types of user-defined words. 


VERBS 


A verb in COBOL74 is a single word that denotes action, such as ADD, WRITE, or MOVE. All allowable 
verbs in COBOL74, with the exception of the word IF, are English verbs. The usage of the COBOL74 verbs 
takes place primarily within the PROCEDURE DIVISION. 
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RESERVED WORDS 


A reserved word is a COBOL74 word that is one of a specified list of words which may be used in COBOL74 
source programs, but must not appear in the programs as user-defined words. Refer to Appendix A, Reserved 
Words. 


These rules apply to the entire COBOL74 source program; no exceptions exist for specific divisions, sections, 
or statements. 


There are six types of reserved words: 


Key words 
Connectives 

Optional words 
Figurative constants 
Special registers 
Special-character words 


Key Words 


A key word is a word whose presence is required in a source program. Within each format, such words are 
upper-case and underlined. 


Key words are of three types: 


1. Verbs such as ADD and READ. 
2. Required words which appear in statement and entry formats. 
3. Words which have a specific functional meaning such as NEGATIVE and SECTION. 


Connectives 


Connectives are used to indicate the presence of a qualifier or to form compound conditional statements. The 
connectives OF and IN are used for qualification. The connectives AND, AND NOT, OR, or NOT are used 
as logical connectives in conditional statements. The comma is used as a series connective to separate two . 
or more operands. 


Optional Words 


Optional words are included in the COBOL74 language to improve the readability of the statement formats. 
These optional words may be included or omitted. For example, IF A IS GREATER THAN B... is equivalent 
to IF A GREATER B...§$; the inclusion or omission of the words IS and THEN does not influence the logic 
of the statement. 


Figurative Constant 


A figurative constant is a reserved word used to reference specific constant values and must never be enclosed 
in quotation marks except when the word, rather than the value, is desired. The figurative constant names 
and meanings are: 


ZERO Represents the value 0, or one or more of the character ’0’, depending on the 
ZEROS context. 
ZEROES 


SPACE 
SPACES 


HIGH-VALUE 


LOW-VALUE 
LOW-VALUES 


QUOTE 
QUOTES 


ALL<literal> 
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Represents one or more spaces (blanks). 


Represents one or more occurrences of the character that has the highest 
ordinal position in the program collating sequence, except in the alphabet-name 
clause of the SPECIAL-NAMES paragraph, where it represents the highest 
ordinal position in the native collating sequence. 


Represents one or more occurrences of the character that has the lowest 
ordinal position in the program collating sequence, except in the alphabet-name 
clause of the SPECIAL-NAMES paragraph, where it represents the lowest 
ordinal position in the native collating sequence. 


Represents one or more occurrences of the character *‘‘’. The word QUOTE 
or QUOTES cannot be used in place of a quotation mark in a source program 
to bound a nonnumeric literal. Thus, QUOTE ABD QUOTE is incorrect as a 
way of stating the nonnumeric literal ‘‘ABD’’. If, however, the full ‘‘ABD”’ is 
desired in a DISPLAY statement, it can be achieved by writing QUOTE 
‘‘ABD”’’? QUOTE, in which case the object program will display ‘‘ABD’’. 


When followed by a hexadecimal literal, a nonnumeric literal, or a figurative 
constant, the word ALL represents a series of that literal. For example, if the 
COBOL74 statement is MOVE ALL literal TO ERROR-CODE, then the 
resultant ERROR-CODE would take on the following values: 


ALL literal Size of ERROR-CODE ERROR-CODE 
ALL ‘‘ABC”’ 7 characters ABCABCA 
ALL ‘‘2”’ or ALL 2 5 characters 22222 
ALL QUOTE 3 characters jens 
ALL SPACES 8 characters (eight spaces) 

NOTE 


The use of ALL with figurative constants, as illustrated in the last two instances, 
is redundant. MOVE ALL SPACES and MOVE SPACES yields the same result. 


When a figurative constant represents a string of one or more characters, the length of the string is determined 
by the compiler from context, according to the following rules: 


1. When a figurative constant is associated with another data item, the string of characters specified by 
the figurative constant is repeated character by character on the right until the size of the resultant 
string is equal to the size in characters of the associated data item. This is done prior to and independ- 
ent of the application of any JUSTIFIED clause that may be associated with the data item. 

2. When a figurative constant is not associated with another data item, as when the figurative constant 
appears in a DISPLAY, STRING, STOP, or UNSTRING statement, the length of the string is one 


character. 


A figurative constant may be used wherever a literal appears in a format, except that whenever the literal 
is restricted to numeric characters only, the only figurative constant permitted is ZERO (ZEROS, ZEROES). 


When the figurative constants HIGH-VALUE(S) or LOW-VALUE(S) are used in the source program, the ac- 
tual character associated with each figurative constant depends upon the program collating sequence specified. 
Refer to OBJECT-COMPUTER and SPECIAL-NAMES in Section 5 for additional information. 
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Special Registers 


Certain reserved words are used to name and reference: special registers. Special registers are certain compiler 
generated storage areas whose primary use is to store information produced in conjunction with the use of 
specific COBOL74 features. These special registers include the following: LINAGE-COUNTER, LINE- 
COUNTER, PAGE-COUNTER, and DEBUG-ITEM. 


Special-Character Words 


The arithmetic operators and relation characters are reserved words. Refer to the glossary in Appendix D for 
additional information. 


LITERALS 


A literal is an item of data whose value is implied by an ordered set of characters of which the literal is com- 
posed, or by specification of a reserved word which references a figurative constant. There are three classes 
of a literal: numeric, nonnumeric, and hexadecimal. 


Numeric Literal 


A numeric literal is a character-string whose characters are selected from the digits 0 through 9, the plus sign 
(+), the minus sign (--), and/or the decimal point. Numeric literals may be from | to 18 digits in length. The 
rules for the formation of numeric literals are as follows: 


1. A numeric literal must contain at least one digit. 

2. A numeric literal must not contain more thar: one sign character. If a sign is used, it must appear 
as the leftmost character of the literal. If the literal is unsigned, the literal is positive. 

3. A numeric literal must not contain more than one decimal point. The decimal point is treated as an 
assumed decimal point, and may appear anywhere within the literal except as the rightmost character. 
If the literal contains no decimal point, the literal is an integer. An integer is a numeric literal which 
contains no decimal point. 


If a literal conforms to the rules of the formation of numeric literals, but is enclosed in quotation 
marks, it is a nonnumeric literal and is treated as such by the compiler. 


4. The value of a numeric literal is the algebraic quantity represented by the characters in the numeric 
literal. Every numeric literal belongs to category numeric. Refer to the PICTURE clause in Section 
6 for additional information. The size of a numeric literal in standard data format characters is equal 
to the number of digits specified by the user. The following are examples of numeric literals: 


516799 
.005 
+2.629 
—.8479 
6287.92 


Nonnumeric Literal 


A nonnumeric literal may be composed of any allowable character. The beginning and ending of a nonnumeric 
literal are both denoted by a quotation mark. Any character enclosed within quotation marks is part of the 
nonnumeric literal. Subsequently. all spaces enclosed within the quotaticn marks are considered part of the 
literal. Two consecutive quotation marks within a nonnumeric literal cause a single quotation mark to be in- 
serted into the literal string. Four consecutive quotation marks result in a single “‘ literal. 
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All other punctuation characters are part of the value of the nonnumeric literal rather than separators; all non- 
numeric literals belong to category alphanumeric. Refer to the PICTURE clause in Section 6. 


A nonnumeric literal cannot exceed 160 characters. Examples of nonnumeric literals are: 


Literal on Source Program Level Literal Stored by Compiler 


“THE TOTAL PRICE” THE TOTAL PRICE 
‘*-2080.479°’ ~2080.479 
“ST IMITATIONS”’”’”’ ““LIMITATIONS”’ 
SAB. A‘‘B 

NOTE 


Literals that are used for arithmetic computation must be expressed as numeric lit- 
erals and must not be enclosed in quotation marks as nonnumeric literals. For ex- 
ample, ‘‘4.4’’ and 4.4 are not equivalent. The compiler stores the nonnumeric liter- 
al as 4.4, whereas the numeric literal would be stored as 0044 if the PICTURE 
were 999V9 DISPLAY, with the assumed decimal point located between the two 
fours. 


Hexadecimal Literals 


A hexadecimal literal is a character-string consisting of characters selected from the hexadecimal digits °0’ 
through °9’ and °A’ through °F’. The beginning and ending of a hexadecimal literal are each denoted by an 
@ sign. For example, a binary 12 would be expressed @C@. 


The category of a hexadecimal literal (4-bit numeric or 8-bit alphanumeric) is determined by the category of 
the data item with which it is associated in a COBOL74 statement. A hexadecimal literal is handled as a 4-bit 
numeric when the category of the associated data item is numeric whether USAGE is COMPUTATIONAL 
or DISPLAY. 


A hexadecimal literal is handled as if it were numeric if: 


1. In the VALUE clause, the category of the associated data item is numeric. 

2. In the MOVE statement, the category of the receiving data item is numeric or numeric edited. 

3. In the conditional expression of an IF, PERFORM, or SEARCH statement, the category of the other 
relational operand is numeric. 


A hexadecimal literal is handled as 8-bit alphanumeric when the category of the associated data item is nonnu- 
meric. Each character is represented by two hexadecimal digits. This requires an even number of digits in 
the hexadecimal literal. A hexadecimal literal is handled as if it were alphanumeric if: 


1. In the VALUE clause, the category of the associated data item is not numeric. 

2. In the MOVE statement, the category of the receiving data item is alphanumeric, alphabetic, or alpha- 
numeric edited. 

3. In the conditional expression of an IF, PERFORM, or SEARCH statement, the category of the other 
relational operand is not numeric. 

4. It appears in an INSPECT, STRING, UNSTRING, DISPLAY, STOP, DISABLE, or ENABLE state- 
ment. 

5. It appears in the ALL figurative constant. 


A hexadecimal literal may also appear in a COPY statement, in which case the hexadecimal literal does not 
have a type associated with it. 
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The following restrictions apply to hexadecimal literals: 


2-12 


I. 


> WwW ho 


A hexadecimal literal is not allowed as an arithmetic operand in an ADD, SUBTRACT, MULTIPLY, 
or DIVIDE statement, nor in an arithmetic expression in a COMPUTE statement or conditional ex- 
pression. 


. A hexadecimal literal is not allowed as a subscript or index. 
. A hexadecimal literal is not allowed as a pregram name in a CALL or CANCEL statement. 
. An identifier assigned a hexadecimal literal will not, in most cases, compare as either numeric or al- 


phabetic in a class condition test. 


. When a hexadecimal literal is handled as if its category were computational, then the length of the 


literal must be from | to 18 digits. When a hexadecimal literal is handled as if it were nonnumeric, 
the length of the literal must be from 2 to 320 digits. 
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DATA DESCRIPTION CONCEPTS 


LOGICAL RECORD AND FILE CONCEPTS 


The purpose of defining file information is to distinguish between the physical aspects of the file and the con- 
ceptual characteristics of the data contained within the file. 


PHYSICAL ASPECTS OF A FILE 


The physical aspects of a file describe the data as it appears on the input or output media and include such 
features as: 


]. The grouping of logical records within the physical limitations of the file medium. 
2. The means by which the file can be identified. . 


CONCEPTUAL CHARACTERISTICS OF A FILE 


The conceptual characteristics of a file are the explicit definition of each logical entity within the file itself. 
In a COBOL74 program, the input or output statements refer to one logical record. 


It is important to distinguish between a physical record and a logical record. A COBOL74 logical record is 
a group of related information, uniquely identifiable, and treated as a unit. 


A physical record is a physical unit of information whose size and recording mode are adapted to a particular 
computer for the storage of data on an input or output device. The size of a physical record is hardware de- 
pendent and has no direct relationship to the size of the file of information contained on a device. 


A logical record may be contained within a single physical unit; several logical records may be contained 
within a single physical unit; or, in the case of mass storage files, a logical record may require more than 
one physical unit. There are several source language methods available for describing the relationship of logical 
records and physical units. When a permissible relationship has been established, control of the accessibility 
of logical records as related to the physical unit must be provided by the interaction of the object program 
on the hardware and/or software system. In this manual, references to records indicate records. unless the 
phrase ’physical record’ is specifically used. 


The concept of a logical record is not restricted to file data but is carried over into the definition of working 


storage. Working storage may be grouped into logical records and defined by a series of record description 
entries. 


RECORD CONCEPTS 


The record, description consists of a set of data description entries which describe the characteristics of a par- 
ticular record. Each data description entry consists of a level-number followed by a data-name, if required, 
followed by a series of independent clauses, as required. 


CONCEPT OF LEVELS 


A level concept is inherent in the structure of a logical record. This concept arises from the need to specify 
subdivisions of a record for the purpose of data reference. Once a subdivision has been specified, it may be 
further subdivided to permit more detailed data referral. 
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The most basic subdivisions of a record, those not further subdivided, are called elementary items; consequen- 
tly, a record is said to consist of a sequence of elementary items, or the record itself may be an elementary 
item. 


In order to refer to a set of elementary items, the elementary items are combined into groups. Each group 
consists of a named sequence of one or more elementary items. Groups, in turn, may be combined into groups 
of two or more groups. An elementary item may belong to more than one group. 


LEVEL-NUMBERS 


A system of level-numbers shows the organization of elementary items and group items. Since records are 
the most inclusive data items, level-numbers for records start at 01. Less inclusive data items are assigned 
higher (not necessarily successive) level-numbers not greater in value than 49. There are special level-numbers 
66, 77, and 88, which are exceptions to this rule. Separate entries are written in the source program for each 
level-number used. 


A group includes all group and elementary items following it until a level-number less than or equal to the 
level-number of that group is encountered. All items which are immediately subordinate to a given group item 
must be described using identical level-numbers greater than the level-number used to describe that group item. 


Three types of entries exist for which there is no true concept of level. These are: 


1. Entries that specify elementary items or groups introduced by a RENAMES clause. 
2. Entries that specify noncontiguous working storage and linkage data items. 
3. Entries that specify condition-names. 


Entries describing items by means of RENAMES clauses for the purpose of regrouping data items have been 
assigned the special level-number 66. 


Entries that specify noncontiguous data items, which are not subdivisions of other items, and are not subdi- 
vided, have been assigned the special level-number 77. 


Entries that specify condition-names. to be associated with particular values of a conditional variable, have 
been assigned the special level-number 88. 


CONCEPT OF CLASSES OF DATA 


The five categories of data items (refer to the PICTURE clause in Section 6) are grouped into three classes: 
alphabetic. numeric, and alphanumeric. For alphabetic and numeric. the classes and categories are 
synonymous. The alphanumeric class includes the categories of alphanumeric edited, numeric edited, and al- 
phanumeric (without editing). Every elementary item, except for an index data item, belongs to one of the 
classes and also to one of the categories. The class of a group item ts treated at object time as alphanumeric: 
regardless of the class of elementary items subordinate to that group item. Table 2-1 shows the relationship 
of the class and categories of data items. 
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Table 2-1. Classes of Data 


Level of Item Category 
Alphabetic Alphabetic 

Numeric Edited 
Alphanumeric Fdited 
Alphanumeric 
Alphabetic 
Numeric 
Numeric Edited 
Alphanumeric Edited 
Alphanumeric 


Elementary 


Alphanumeric 


Nonelementary Alphanumeric 


(Group) 


ALGEBRAIC SIGNS 


Algebraic signs fall into two categories: operational signs, which are associated with signed numeric data items 
and signed numeric literals to indicate algebraic properties; and editing signs, which appear on edited reports 
to identify the sign of the item. 


The SIGN clause permits the programmer to state explicitly the location of the operational sign. The clause 
is optional; if it is not used, operational signs are represented as defined under symbol ’S’ of the PICTURE 
clause. Refer to the PICTURE clause, General Rule 8, the ’S’ symbol in Section 6. 


Editing signs are inserted into a data item through the use of the sign control symbols of the PICTURE clause. 


STANDARD ALIGNMENT RULES 


The standard rules for positioning data within an elementary item depend on the category of the receiving item. 
These rules are: 


1. If the receiving data item is described as numeric: 


a. The data is aligned by decimal point and is moved to the receiving character positions with zero 
fill or truncation on either end as required. 

b. When an assumed decimal point is not explicitly specified, the data item is treated as if it had 
an assumed decimal point immediately following the rightmost character and is aligned as in step 
la above. 


2. If the receiving data item is a numeric edited data item, the data moved to the edited data item Is 
aligned by decimal point with zero fill or truncation at either end as required within the receiving char- 
acter positions of the data item, except where editing requirements cause replacement of the leading 
zeros. 

3. If the receiving data item is alphanumeric (other than a numeric edited data item), alphanumeric edited 
or alphabetic, the sending data is moved to the receiving character positions and aligned at the left- 
most character position in the data item with space fill or truncation to the right, as required. 


If the JUSTIFIED clause is specified for the receiving item, these standard rules are modified as described 
in the JUSTIFIED clause description in Section 6. 


1108883 2-15 


B 1000 Systems COBOL74 Reference Manual 
Language Concepts 


UNIQUENESS OF REFERENCE 


Uniqueness of reference for idtntifiers and condition-names, if not unique in the program, can be accomplished 
through the use of qualification, subscripting, or indexing. 


IDENTIFIER 


An identifier is a term used to reflect that a data-name, if not unique in a program, must be followed by a 
syntactically correct combination of qualifiers, subscripts, or indices necessary to ensure uniqueness. 


General Formats: 


Format I: 


no enone ten eeneneneeenenine in nee ere NETS eA A ses SS eS 


data-name-] | { OF \ | [ 
IN data-name-2 sie (subscript-1 


1] 


[ , subscript-2 [, subscript-3 ] 


Format 2: 


data-name-1 OF | 
IN data-rame-2 


index-name-] | *\ literal-2 
literal-1 — | 


index-name-2 ( + ) mae] 
literal-3 | (- | 


index-name-3 4 “er 
literal-5 - 


Restrictions on qualification, subscripting, and indexing are: 


|. A data-name must not be subscripted or indexed when that data-name is being used as an index, sub- 
script, or qualifier. 

2. Indexing 1s not permitted where subscripting is not permitted. 

3. An index may be modified only by the SET, SEARCH, and PERFORM statements. Data items de- 
scribed by the USAGE IS INDEX clause permit storage of the values associated with index-names 
as data. Refer to the USAGE cause in Section 6. Such data items are called index data items. 

4. Literal-1, literal-3, literal-5, ... in the previous format example, must be positive numeric integers. Lit- 
eral-2, literal-4, literal-6, ... must be unsigned numeric integers. 
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CONDITION-NAME 


Each condition-name must be unique, or made unique through qualification and/or indexing, or subscripting. 
If qualification is used to make a condition-name unique, the associated conditional variable may be used as 
the first qualifier. If qualification is used, the hierarchy of names associated with the conditional variable, or 
the conditional variable itself, must be used to make the condition-name unique. 


If references to a conditional variable require indexing or subscripting, then references to any of its condition- 
names also require the same combination of indexing or subscripting. 


The format and restrictions on the combined use of qualification, subscripting, and indexing of condition-names 
is exactly that of ‘identifier’ except that data-name-! is replaced by ’condition-name-1’. 


In the general formats, ’condition-name’ refers to a condition-name qualified, indexed or subscripted, as neces- 
sary. 
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QUALIFICATION 


Every user-specified name that defines an element in a COBOL74 source program must be unique, either be- 
cause no other name has the identical spelling and hyphenation, or because the name exists within a hierarchy 
of names such that references to the name can be made unique by mentioning one or more of the higher levels 
of the hierarchy. The higher levels are called qualifiers and the process that specifies uniqueness is called quali- 
fication. Enough qualification must be mentioned to make the name unique; however, it may not be necessary 
to mention all levels of the hierarchy. Within the DATA DIVISION, all data-names used for qualification must 
be associated with a level indicator or a level-number. Therefore, two identical data-names must not appear 
as entries subordinate to a group item unless they are capable of being made unique through qualification. 
In the PROCEDURE DIVISION, two identical paragraph-names must not appear in the same section. 


In the hierarchy of qualification, names associated with a level indicator are the most significant, followed by 
those names associated with level-number 01, and finally the names associated with level-number.02, ... , 49. 
A section-name is the highest and only qualifier available for a paragraph-name. The most significant name 
in the hierarchy must be unique and cannot be qualified. Subscripted or indexed data-names and conditional 
variables, as well as procedure-names and data-names, may be made unique by qualification. The name of 
a conditional variable can be used as a qualifier for any of its condition-names. Regardless of the available 
qualification. no name can be both a data-name and procedure-name. 


Qualification is performed by following a data-name, a condition-name, a paragraph-name, or a text-name by 
one or more phrases composed of a qualifier preceded by IN or OF. IN and OF are logically equivalent. 


General Format: 


Format |: 


} data-name-|! | OF t data-name-2 Scat 
| condition-name IN 


Format 2: 


[ or section-name | 
paragraph-name ) IN 


Format 3: 


{ OF library-name 
text-name VIN 
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QUALIFICATION 


General Rules: 


"Nn 


. Each qualifier must be of a successively higher level and within the same hierarchy as the name it 


qualifies. 


. The same name must not appear at two levels in a hierarchy. 
. If a data-name or a condition-name is assigned to more than one data item in a source program. the 


data-name or condition-name must be qualified each time it is referenced in the PROCEDURE. ENVI- 
RONMENT, and DATA DIVISIONS (except in the REDEFINES clause where qualification 1s unnec- 
essary and must not be used.) 


. A paragraph-name must not be duplicated within a section. When a paragraph-name is qualified by 


a section-name, the word SECTION must not appear. A paragraph-name need not be qualified when 
referred to from within the same section. 


. A data-name cannot be subscripted when used as a qualifier. 
. A name can be qualified even though it does not need qualification: if there is more than one combina- 


tion of qualifiers that ensures uniqueness, then any such set can be used. The complete set of qualifi- 
ers for a data-name must not be the same as any partial set of qualifiers for another data-name. Quali- 
fied data-names may have any number of qualifiers up to and including 49. 


. If more than one COBOL74 library is available to the compiler during compilation. text-name must 


be qualified each time it is referenced. 


Examples: In the following file descriptions all items are unique except the data-name TECH. In order to refer 
to either TECH item, qualification must be used. Otherwise. if reference is made to TECH only. the compiler 
would not know which of the two is desired. Therefore, in order to move the contents of one TECH into 
the other TECH. the PROCEDURE DIVISION must be coded with one of the following sentences: 


MOVE TECH IN CITY-NO TO TECH OF STATE=-NO. 
MOVE TECH OF CITY-NO TO TECH IN STATE=NO. 
MOVE TECH IN AREA-NO TO TECH OF RADIUS-NO. 


MOVE TECH OF AREA-NO FO TECH IN RADIUS-NO. 


Ol AREA-NO ... Ol RADIUS=NO 


OS: JE VEV HNO? se: x6 03 STATE-NO.. 
OD: “TECh é 3 05+ “TECH a. ver ss 
O05 BRANCH... O05. “DI'ST=BR < . 

O3:: DISTRUET. 2s: 4s. % 03 REGION... 
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SUBSCRIPTING 


Subscripts can be used only when reference is made to an individual element within a list or table of like 
elements that have not been assigned individual data-names (refer to the OCCURS clause in Section 6). 


The subscript can be represented either by a numeric literal that is an integer or by a data-name. The data- 
name must be a numeric elementary item that represents an integer. When the subscript is represented by 
a data-name, the data-name may be qualified but not subscripted. 


The subscript may be signed and, if signed, must be positive. The lowest possible subscript value is 1. This 
value points to the first element of the table. The next sequential elements of the table are pointed to by sub- 
scripts whose values are 2, 3, and so forth. The highest permissible subscript value, in any particular case, 
is the maximum number of occurrences of the item as specified in the OCCURS clause. 


At the time of execution of a statement which refers to a subscripted table element, each subscript specified 
is validated. That is, its value must not be less than one or more than the maximum number of occurrences 
as specified by the corresponding OCCURS clause (as modified by the DEPENDING ON clause, if any). If 
the subscript value is not within this range. an abnormal termination of the program occurs. 


The subscript or set of subscripts that identifies the table element is delimited by the balanced pair of separa- 
tors, left parenthesis and right parenthesis, following the table element data-name. The table element data-name 


appended with a subscript is called a subscripted data-name or an identifier. 


When more than one subscript is required, they are written in the order of successively less inclusive dimen- 
sions of the data organization. 


General Format: 


tiene nen 00 steerer nena eR tne AAAS Sh 


data-name l 
subscript-1 [ , subscript-2 [ , subscript-3 ] 


aor 


condition-name { 


A ei A tN ELLE NR SSA ist 


Example: 
In the following file description. to reference the first department, DEPT (1) is written. If data-name X contains 


the number of the department desired, DEPT -(X) is written. If the data item GROUP contains the specific 
group desired. then POSITION (X, GROUP) would reference the exact employee. 


Ol EMPLOYEE-JOBS. 


05 DEPT CCCURS 50 TIMES. 
10 DEPT-NAME PIC X(10). 

10 ALL-JOBS CCCURS 20 TIMES. 
15 POSITION PIC X(15). 
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INDEXING 


References can be made to individual elements within a table of like elements by specifying indexing for that 
reference. An index is assigned to that level of the table by using the INDEXED BY phrase in the definition 
of a table. A name given in the INDEXED BY phrase is known as an index-name and is used to refer to 
the assigned index. The value of an index corresponds to the occurrence number of an element in the associ- 
ated table. An index-name can be given a value by the execution of a SET statement. a SEARCH ALL state- 
ment, or a Format 4 PERFORM statement. 


An index-name has the same internal representation as an index data item. Refer to General Rule 9, the US- 
AGE clause. in Section 6. If a value to be stored in an index-name or in an index data name exceeds the 
largest value that can be held in that index-name or index data name. the value is truncated according to the 
rules for the occurrence of a size error condition in an arithmetic statement without a SIZE ERROR phrase. 


An index-name assigned to one table may not be used to index another table. 


Direct indexing is specified by using an index-name in the form of a subscript. Relative indexing is specified 
when the index-name is followed by the operator + or —. followed by an unsigned integer numeric literal. all 
of which is delimited by the matching pair of separators. left parenthesis and right parenthesis. following the 
table element data-name. The occurrence number resulting from relative indexing is determined by increment- 
ing (where the operator + is used) or decrementing (when the operator — is used). by the value of the literal. 
the occurrence number represented by the value of the index. When more than one index-name is required. 
they are written in the order of successively less inclusive dimensions of the data organization. 


At the time of execution of a statement which refers to an indexed table element. the value of each direct 
or relative index must not be less than a value which corresponds to the beginning of the first occurrence 
of the table element. Also. the index must not be greater than a value which corresponds to the beginning 
of the last occurrence of the table element as specified by the corresponding OCCURS clause. If the index 
value is not within this range. the execution of the program is terminated. The index value need not precisely 
address the beginning of a table element in order to pass the range check. This may occur when an index- 
name is set to the value of an index data item which has been set to the value of another index-name. as 
such assignments are made without conversion. 


Subscripting is permitted where indexing is permitted. 


General Format: 


| | 


Ary 


index-name-3 | \" aa 


data-name ] ( 


| index-name-| | 
l condition-name j 


literal-1 


| 
j 
literal-4 |: 
ie 


> 


Ld 


literal-5 
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EXPLICIT AND IMPLICIT SPECIFICATIONS 


There are three types of explicit and implicit specifications that occur in COBOL74 source programs: 


|. Explicit and implicit PROCEDURE DIVISION references. 
2. Explicit and implicit transfers of control. 
3. Explicit and implicit attributes. 


EXPLICIT AND IMPLICIT PROCEDURE DIVISION REFERENCES 


A COBOL74 source program can reference data items either explicitly or implicitly in PROCEDURE DIVI- 
SION statements. An explicit reference occurs when the name of the referenced item is written in a PROCE- 
DURE DIVISION statement or when the name of the referenced item is copied into the PROCEDURE DIVI- 
SION by the processing of a COPY statement. An implicit reference occurs when the item is referenced by 
a PROCEDURE DIVISION statement without the name of the referenced item being written in the source 
statement. An implicit reference also occurs, during the execution of a PERFORM statement, when the index 
or data item referenced by the index-name or identifier specified in the VARYING, AFTER, or UNTIL phrase 
is initialized. modified, or evaluated by the control mechanism associated with that PERFORM statement. 
Such an implicit reference occurs if the data item contributes to the execution of the statement. 


EXPLICIT AND IMPLICIT TRANSFERS OF CONTROL 


The mechanism that controls program flow transfers control from statement to statement in the sequence in 
which the statements were written in the source program, unless an explicit transfer of control overrides this 
sequence or there is no next executable statement to which control can be passed. The transfer of control 
from statement to statement occurs without the writing of an explicit PROCEDURE DIVISION statement, 
and therefore, is an implicit transfer of control. 


COBOL74 provides both explicit and implicit means of altering the implicit control transfer mechanism. 


In addition to the implicit transfer of control between consecutive statements, implicit transfer of control also 
occurs when the normal flow is altered without the execution of a procedure branching statement. COBOL74 
provides the following types of implicit contro! flow alterations which override the statement-to-statement 
transfers of control: 


|. If a paragraph is being executed under control of another COBOL74 statement (for example, PER- 
FORM, USE, SORT, and MERGE) and the paragraph is the last paragraph in the range of the control- 
ling statement, then an implied transfer of control occurs from the last statement in the paragraph to 
the control mechanism of the last executed controlling statement. Further, if a paragraph is being 
executed under the control of a PERFORM statement which causes iterative execution and that 
paragraph ts the first paragraph in the range of that PERFORM statement, an implicit transfer of con- 
trol occurs between the control mechanism associated with that PERFORM statement and the first 
statement in that paragraph for each iterative execution of the paragraph. 
. When a SORT or MERGE statement is executed. an implicit transfer of control occurs to any associ- 
ated input or output procedures. 
3. When any COBOL74 statement is executed which results in the execution of a declarative section, 
an implicit transfer of control to the declarative section occurs. Another implicit transfer of control 
occurs after execution of the declarative section. as described in step 1 above. 


ao} 
iIné 
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EXPLICIT & IMPLICIT 


An explicit transfer of control consists of an alteration of the implicit control transfer mechanism by the execu- 
tion of a procedure branching or conditional statement. An explicit transfer of control can be caused only by 
the execution of a procedure branching or conditional statement. The execution of the procedure branching 
statement ALTER does not constitute an explicit transfer of control, but affects the explicit transfer of control 
that occurs when the associated GO TO statement is executed. The procedure branching statement EXIT PRO- 
GRAM causes an explicit transfer of control when the statement is executed in a called program. 


In this manual, the term ’next executable statement’ is used to refer to the next COBOL74 statement to which 
control is transferred according to the rules above and the rules associated with each language element in the 
PROCEDURE DIVISION. 
There is no next executable statement following: 
1. The last statement in a declarative section when the paragraph in which it appears is not being 
executed under the control of some other COBOL74 statement. 


2. The last statement in a program when the paragraph in which it appears is not being executed under 
the control of some other COBOL74 statement. 


EXPLICIT AND IMPLICIT ATTRIBUTES 


Attributes may be implicitly or explicitly specified. Any attribute which has been explicitly specified is called 
an explicit attribute. If an attribute has not been specified explicitly, then the attribute assumes the default 
specification. Such an attribute is known as an implicit attribute. 


For example, the usage of a data item need not be specified, in which case, a data item’s usage is DISPLAY. 
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SECTION 3 
CODING FORM 


GENERAL 


The format of the COBOL74 coding form (Figure 3-1) has been defined by CODASYL and ANSI, and by 
common usage. The B 1000 COBOL74 Compiler accepts this standard format. Should program interchange be 
a major consideration, the user is directed to the ANSI standard. 


The rules for spacing given in the following description of the reference format take precedence over all other 
rules for spacing. 


FIELD DEFINITIONS 


The same coding form is used for all four divisions of a COBOL74 program. These divisions must appear in 
proper order: IDENTIFICATION, ENVIRONMENT, DATA, and PROCEDURE. The following paragraphs 
describe the various fields of this coding form. 


SEQUENCE AREA (Record Positions 1-6) 


A sequence number, consisting of six digits in the sequence area, may be used to label a source program line. 


INDICATOR AREA (Record Position 7) 
Column 7 has the following functions: 


1. A $ symbol in column 7 indicates that the record is used to specify options for compiler operation. 
Refer to Section 11 for additional information. 

2. If column 7 contains an asterisk (*), the remainder of the record is considered to be a comment and, 
is not ‘‘compiled’’ to produce object code. 

3. If column 7 contains a slash (/), the listing is advanced to channel | before printing, and the record 
is considered to be a comment record. 

4. The presence of a hyphen (—) indicates that the last word or literal on the previous record is not com- 
plete and is continued on this record beginning in Area B (positions 12 through 72). 


Words and numeric literals may be split at any point by placing a hyphen in column 7 of the following 
record. Any rightmost blank spaces on a record are ignored as are the leftmost blank spaces on the 
continuation record. _ 


Nonnumeric literals are split in a slightly different fashion than words and numeric literals. On the 
initial record starting from the quotation mark, all information through position 72 is taken as part 
of the literal, and on the next record a quotation mark must be used to indicate the start of the second 
part of the literal. 


If there is no hyphen in column 7 of a coding line, it is assumed that the last character in the preced- 
ing line is followed by a space. 


5. The letter D in column 7 specifies a debugging line. Any debugging line that consists solely of spaces 
from positions 8 through 72 is considered the same as a blank line. 
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A debugging line is considered to have all the characteristics of a comment line, if the WITH DE- 
BUGGING MODE clause is not specified in the SOURCE-COMPUTER paragraph. Therefore, the 
contents of a debugging line must be such that a syntactically correct program is formed with or with- 
out the debugging lines being considered as comment lines. 


A debugging line is only permitted in the program after the OBJECT-COMPUTER paragraph. 
Successive debugging lines are allowed. Continuation of debugging lines is permitted, except that each 


continuation line must contain the letter D in position 7, and character-strings may not be broken 
across two lines. 


AREA A (Positions 8-11) 


DIVISION, SECTION, and PARAGRAPH headers must begin in Area A. A division header consists of the 
division name (IDENTIFICATION, ENVIRONMENT, DATA, or PROCEDURE), followed by a space. then 
the word DIVISION followed by a period. 


In the ENVIRONMENT and DATA DIVISIONS, a section header consists of the section-name, followed by 
a space, and then the word SECTION followed by a period. 


In the PROCEDURE DIVISION, a section header is composed of a section-name, followed by the reserved 
word SECTION, followed by a segment-number (optional), followed by a period. 


A paragraph header consists of the paragraph-name followed by a period. The first sentence of the paragraph 
may appear on the same line as the paragraph header. 


Within the IDENTIFICATION and ENVIRONMENT divisions, the section and paragraph headers are fixed 
and only the headers shown in this manual are permitted. Within the PROCEDURE DIVISION, the section 


and paragraph headers are defined by the user. 


Within the DATA DIVISION, the level indicators (FD, CD, SD) and the level numbers 0! and 77 must each 
begin in Area A, followed by the associated name and appropriate descriptive information. 


The key words DECLARATIVES and END DECLARATIVES that precede and follow the declaratives por- 


tion of the PROCEDURE DIVISION, must appear on separate lines. Each must begin in Area A and must 
be followed by a period and a space. 


AREA B (Positions 12-72) 


All entries which are not DIVISION, SECTION, or PARAGRAPH headers; level numbers 01 and 77, or level 
indicators (FD, SD, CD), must start in Area B. 


When level-numbers are to be indented, each new level-number may begin any number of spaces to the right 
of Area A. The extent of indentation to the right is determined only by the width of the physical medium. 


RIGHT MARGIN (Position 72) 


The text of the program must appear between positions 8 and 72, inclusive. A word or statement may end 
in position 72. 
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IDENTIFICATION (Positions 73-80) 


The identification field may contain any information desired by the user. The field is ignored but is reproduced 
on the output listing by the compiler. This field is normally used for the program name. 


BLANK LINES 


A blank line is one that contains no entries in the Indicator Area, Area A, and Area B. A blank line may 
appear anywhere in the source program except immediately preceding a continuation line. 


PUNCTUATION 


The following rules of punctuation apply to COBOL74 source programs for the B 1000 system. 


1. A sentence must be terminated by a period followed by a space. A period must not appear within 
a sentence unless it is within a nonnumeric literal or is a decimal point in a numeric literal or PIC- 
TURE string. 

2. Two or more names in a series must be separated by a space or by a comma. If used, commas must 
appear only where allowed. : 

3. Semicolons (;) are used only for readability and are never required. 

4. A space must never be embedded in a name; hyphens are to be used instead. A hyphen must not 
start or terminate a name. For example: 


PAY-DAY (correct) 
~PAYDAY (wrong) 


SAMPLE CODING 


An extract sample fromm a source program, showing the continuation of both words and nonnumeric literals, 
is illustrated in Figure 3-2. 


3-4 


PAGE 


REQUESTED BY 


Burroughs COBOL CODING FORM 


PROGRAM 


1108883 


7 


IDENT. 


DATE 


PROGRAMMER 


——— 


B 1000 Systems COBOL74 Reference Manual 


Coding Form 


4 
{| ~@ 
aa, ~~ 
(_¥ 
: EEEEEE 
P| 
J “ 
¥) - 
ay J 
ra 7 Da 
2 ‘< 
= 
bon 
i Ca 
EF 
li 
I 


72 


68 


64 


60 


56 


52 


48 


44 


40 


36 


32 


28 


24 


20 


16 


12 


G12327 


Figure 3-2. Example of Continuation of Words and Literals 


3-5 


B 1000 Systems COBOL74 Reference Manual 


SECTION 4 
IDENTIFICATION DIVISION 


GENERAL 


The first division of the COBOL74 source program is the IDENTIFICATION DIVISION whose function is 
to identify the source program and the resultant output of compilation. In addition, the date the program was 


written, the date the source program was compiled, and other pertinent information can be included in the 
IDENTIFICATION DIVISION. 


IDENTIFICATION DIVISION STRUCTURE 


The structure of this division follows: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 

[AUTHOR. [comment-entry] ... ] 
[INSTALLATION. [comment-entry ] ... ] 
{[DATE-WRITTEN. [comment-entry ] ... ] 
[DATE-COMPILED. [comment-entry ] ... ] 
{SECURITY. [comment-entry ] ... ] 


The following rules must be observed in the formation of the IDENTIFICATION DIVISION: 


1. The IDENTIFICATION DIVISION must begin with the reserved words IDENTIFICATION DIVI- 
SION followed by a period and a space. 

2. All paragraph-names must begin in positions 8 through I! (Area A) of the coding form. 

3. The comment-entry can consist of any combination of the characters from the B 1000 character set. 
The continuation of the comment-entry by the use of the hyphen in the indicator area is not permitted; 
however, the comment-entry may be contained on one or more lines. A period must be present to 
denote the end of the comment entry. 


PROGRAM-ID PARAGRAPH 
The PROGRAM-ID paragraph gives the name by which a program is identified. 
| PROGRAM.-ID. program-name. 


The following rules must be observed to form PROGRAM-ID paragraphs. 


— 


. The program-name must conform to the rules for formation of a user-defined word. 

2. The PROGRAM-ID paragraph contains the name of the program and must be present in every pro- 
gram. 

3. The program-name identifies the source program and all listings pertaining to a particular program. 
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IDENTIFICATION DIVISION 


DATE-COMPILED PARAGRAPH 


The DATE-COMPILED paragraph provides the compilation date in the IDENTIFICATION DIVISION source 
program listing. 


| DATE-COMPILED. [comment-entry ] ... | 


A A, A NN 


The paragraph-name DATE-COMPILED causes the current date to be inserted during program compilation. 
If a DATE-COMPILED paragraph is present, it is replaced during compilation with a paragraph of the form: 


| DATE-COMPILED. current date. | 


Current date is composed of the elements year, month, day of month, hour, and minute and represents the 
date and time at which the compilation of the source program started. 


Year is presented as four digits, starting in the position on the printed line corresponding to column 25 of 
a source line. 


Month is presented as the name of the month in English. starting in the position on the printed line correspond- 
ing to column 30 of a source line. 


Day of month is presented as two digits, starting in the position on the printed line two places to the right 
of the last character of the month entry. 


Time is presented as four digits, with a colon between the second and third digits, and represents the time 
on a 24-hour clock. Time is presented in the position on the printed line five places to the right of the second 
digit of day of month. 

Any leading zeros in the numeric fields are presented as the character °0’ (zero). 


If a compilation commences at 11:03 p.m., February 3, 2001, the current date would be presented as: 


2001 FEBRUARY 03 23:03 


CODING THE IDENTIFICATION DIVISION 


Figure 4-1 provides an example of how the IDENTIFICATION DIVISION may be coded in the source pro- 
gram. Continued lines must begin in Area B and must not include a hyphen in the indicator area. 
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SECTION 5 
ENVIRONMENT DIVISION 


GENERAL 


The ENVIRONMENT DIVISION is the second division of a COBOL74 source program. Its function is to 
specify the computer being used for the program compilation, specify the computer to be used for object pro- 
gram execution, associate files with the computer hardware devices, and provide the compiler with pertinent. 
information about disk storage files defined within the program. Furthermore, this division is also used to spec- 
ify input-output areas to be utilized for each file declared in a program. 


ENVIRONMENT DIVISION ORGANIZATION 


The ENVIRONMENT DIVISION consists of two sections. The CONFIGURATION SECTION contains the 
overall specifications of the computer. The INPUT-OUTPUT SECTION deals with files to be used in the ob- 
ject program. 


ENVIRONMENT DIVISION STRUCTURE 


The structure of this division follows: 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. source-computer-entry 
OBJECT-COMPUTER.  object-computer-entry 
[SPECIAL-NAMES. special-names-entry | 
{INPUT-OUTPUT SECTION. 

FILE-CONTROL. {file-control-entry } 


[IO-CONTROL. input-output-control-entry |] ] 


The following rules must be observed in the formulation of the ENVIRONMENT DIVISION. 
1. The ENVIRONMENT DIVISION must begin with the reserved words ENVIRONMENT DIVISION 


followed by a period and a space. 
2. All entries must begin in Area A (columns 8 through 11) of the coding form. 
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CONFIGURATION SECTION 


CONFIGURATION SECTION 


The CONFIGURATION SECTION contains information concerning the system to be used for program com- 
pilation (SOURCE-COMPUTER), the system to be used for program execution (OBJECT-COMPUTER), and 
the SPECIAL-NAMES paragraph. The SPECIAL-NAMES paragraph relates hardware names used by the 


B 1000 COBOL74 Compiler to the mnemonic-names in the source program, and alphabet-names to character 
sets and/or collating sequences. 
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SOURCE-COMPUTER 


SOURCE-COMPUTER PARAGRAPH 
The SOURCE-COMPUTER paragraph identifies the computer upon which the program is to be compiled. 


General Format: 
[ SOURCE-COMPUTER. _computer-name. | 


Syntax Rule: 
1. The computer-name is any COBOL74 word and is handled as a comment entry which describes the 
computer upon which ‘the source program is to be compiled. This computer name is for documentation 
only. 


General Rule: 


1. The computer-name is treated as a comment and ignored. 
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OBJECT-COMPUTER PARAGRAPH 
The OBJECT-COMPUTER paragraph identifies the computer on which the program is to be executed. 


General Format: 


ae emeneel 
a a nN 
ooo 


WORDS 
OBJECT-COMPUTER. computer-name , MEMORY SIZE integer GHARACTERS| 
: MODULES 


[, PROGRAM COLLATING SEQUENCE IS alphabet-name ] 


[ , SEGMENT-LIMIT IS segment-number ] . 


Syntax Rules: 


1. Computer-name is a system name. 
2. Segment-number must be an integer whose value is within the range of | through 49. 


General Rules: 


1. The computer-name is any COBOL74 word and is handled as a comment entry which describes the 
computer upon which the object program is to be executed. This computer name is for documenta- 
tion only. 

2. If the PROGRAM COLLATING SEQUENCE clause is specified, the collating sequence associated 
with alphabet-name is used to determine the truth value of any nonnumeric comparisons: 


a. Explicitly specified in relation conditions. Refer to Relation Condition in Section 7 for additional 
information. 

b. Explicitly specified in condition-name conditions. Refer to Condition-Name Condition (Condition- 
al Variable) in Section 7 for additional information. 


3. If the PROGRAM COLLATING SEQUENCE clause is not specified, the EBCDIC collating sequence 
is used. 

. If the PROGRAM COLLATING SEQUENCE clause is specified, the program collating sequence is 
the collating sequence associated with the alphabet-name specified in that clause. 

. The PROGRAM COLLATING SEQUENCE clause is also applied to any nonnumeric merge or sort 
keys unless the COLLATING SEQUENCE phrase of the respective MERGE or SORT statement is 
specified. Refer to the MERGE and SORT statement in Section 7. 

6. The PROGRAM COLLATING SEQUENCE ‘clause applies only to the program in which it is 
specified. 


-_ 


in 


to 49. Refer to Segmentation in Section 7 for further discussion. 
9. The MEMORY SIZE clause is used to increase the amount of dynamic memory. 
10. WORDS and MODULES are equivalent to CHARACTERS. 
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SPECIAL-NAMES PARAGRAPH 


The SPECIAL-NAMES paragraph provides a means of relating names to user-specified mnemonic-names and 


of relating alphabet-names to character sets and/or collating sequences. 


General Format: 


SPECIAL-NAMES . 


IS mnemonic-name 


[ , ON STATUS IS condition-name-| 
[, OFF STATUS IS condition-name-2 ] ] 


IS mnemonic-name 


[. OFF STATUS IS condition-name-2 
[,ON STATUS IS condition-name-1 ] ] 


ON STATUS IS condition-name-| 

{, OFF STATUS IS condition-name-2 | 
OFF STATUS IS condition-name-2 

[. ON STATUS IS condition-name-! | 


. alphabet-name IS 


STANDARD-| 
NATIVE 
ASCII 
EBCDIC 
j THROUGH \ literal-2 
literal-l | THRU f 
ALSO literal-3 [| . ALSO literal-4 | | 
{ THROUGH t 
literal-5 THRU litcral-6 
Re literal-7 [| , ALSO literal-8 | | 


[ . CURRENCY SIGN IS literal-9 J 
[ , DECIMAL-POINT IS COMMA ] 
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SPECIAL-NAMES 


Syntax Rules: 


1. The literals specified in the literal phrase of the alphabet-name clause: 


a. If numeric, must be unsigned integers and must have a value within the range of | through the 
maximum number of characters in the EBCDIC character set. 


b. If nonnumeric and associated with a THROUGH or ALSO phrase, must each be one character 
in length. 


ho 


. If the literal phrase of the alphabet-name clause is specified, a given character must not be specified 
more than once in an alphabet-name clause. 
3. The words THRU and THROUGH are equivalent. 


General Rules: 


1. If switch-name is not specified, the associated mnemonic-name may be used in the ACCEPT, DIS- 


5. The alphabet-name clause provides a means for relating a name to a specified character code set and/ 
or collating sequence. When alphabet-name is referenced in the PROGRAM COLLATING SE- 
QUENCE clause (refer to OBJECT-COMPUTER Paragraph in this Section) or the COLLATING SE- 
QUENCE phrase of a SORT or MERGE statement (refer to MERGE and SORT in Section 7), the 
alphabet-name clause specifies a collating sequence. When alphabet-name is referenced in a CODE- 


SET clause in a file description entry (refer to the File Description Structure in Section 6), the alpha- 
bet-name clause specifies a character code set. 


a. ASCII is a synonym for STANDARD.-1. If the STANDARD-1I or ASCII phrase is specified, the 
character code set and collating sequence identified is that defined in the American National Stan- 
dard Code for Information Interchange. X5.4-1968. 

b. If the NATIVE phrase is specified, the native character code set and native collating sequence 
will be identified with the alphabet-name. The native character code set is EBCDIC and is the 
character code set associated with DISPLAY usage. 

c. The correspondence between characters of the ASCII character code set and characters of the 
EBCDIC character code set is determined by standard translation tables for EBCDIC to ASCII 
and ASCII to EBCDIC translation. Refer to Appendix C. 

d. If the literal phrase is specified. the alphabet-name may not be referenced in a CODE-SET clause. 


Refer to the CODE-SET clause in Section 6. The collating sequence identified is that defined ac- 
cording to the following rules: 


5-6 


B 1000 Systems COBOL74 Reference Manual 
Environment Division 


SPECIAL-NAMES 


Rule 1: The value of each literal specifies: 


1) The ordinal number of a character within the native character set, if the literal is numeric. This 
value must not exceed the value which represents the number of characters in the native char- 
acter set. 

2) The actual character within the native character set, if the literal is nonnumeric. If the value 
of the nonnumeric literal contains multiple characters, each character in the literal, starting with 
the leftmost character, is assigned successive ascending positions in the collating sequence be- 
ing specified. 


Rule 2: The order in which the literals appear in the alphabet-name clause specifies, in ascending 
sequence, the ordinal number of the character within the collating sequence being specified. 


Rule 3: Any characters within the native collating sequence, which are not explicitly specified in 
the literal phrase, assume a position, in the collating sequence being specified, greater than any 
of the explicitly specified characters. The relative order within the set of these unspecified charac- 
ters is unchanged from the native collating sequence. 


Rule 4: If the THROUGH phrase is specified, the set of contiguous characters in the native char- 
acter set beginning with the character specified by the value of literal-1, and ending with the char- 
acter specified by the value of literal-2, is assigned a successive ascending position in the collating 
sequence being specified. In addition, the set of contiguous characters specified by a given 
THROUGH phrase may specify characters of the native character set in either ascending or de- 
scending sequence. 


Rule 5: If the ALSO phrase is specified, the characters of the native character set specified by 
the value of literal-1, literal-3, literal-4, .... are assigned to the same position in the collating se- 
quence being specified. 


6. The character that has the highest ordinal position in the program collating sequence specified is asso- 
ciated with the figurative constant HIGH-VALUE. If more than one character has the highest position 
in the program collating sequence, the last character specified is associated with the figurative constant 
HIGH-VALUE. 

7. The character that has the lowest ordinal position in the program collating sequence specified is asso- 
ciated with the figurative constant LOW-VALUE. If more than one character has the lowest position 
in the program collating sequence, the first character specified is associated with the figurative con- 
stant LOW-VALUE. 

8. The literal which appears in the CURRENCY SIGN IS literal clause is used in the PICTURE clause 
to represent the currency symbol. The literal is limited to a single character and must not be one of 
the following characters: 


a. Digits 0 through 9. 
b. Alphabetic characters: 


A D R 4 
B L Ss Z 
C P Vv space 
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SPECIAL-NAMES 


c. Special characters: 


If the CURRENCY SIGN IS clause is not present, the default value dollar sign ($) is used in the 
PICTURE clause. 


9. The clause DECIMAL-POINT IS COMMA means that the functions of the comma and period are 
exchanged in the character-string of the PICTURE clause and in numeric literals. 
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FILE CONCEPTS 


INPUT-OUTPUT SECTION 


The INPUT-OUTPUT section contains information concerning files to be used by the object program, the 
manner of recording used or to be used, and the presence of any multiple-file tape or disk. 


FILE CONCEPTS 


In the following paragraphs, concepts of File Types, Organization, Access Mode, Current Record Pointer, I-O 
Status, INVALID KEY, AT END, and LINAGE-COUNTER are discussed pertaining to Sequential, Indexed, 
Relative, and Sort-Merge files. 


SEQUENTIAL I-O 


Sequential I-O provides a capability to access records of a file in established sequence. The sequence is estab- 


lished as a result of writing the records to the file. It also provides for the sharing of memory areas among 
files. 


Sequential I-O provides full facilities for the FILE-CONTROL, I-O-CONTROL, and FD entries as specified 
in the formats of this manual. Within the PROCEDURE DIVISION, Sequential I-O provides full capabilities 
for the CLOSE, OPEN, READ, REWRITE, USE, and WRITE statements . Additional features available in- 
clude: OPTIONAL files, the RESERVE clause, SAME RECORD AREA, REVERSED, and EXTEND op- 
tions. 


RELATIVE 1I-O 


Relative I-O provides the capability to access records of a mass storage file in either a random or sequential 
manner. Each record in a relative file is uniquely identified by an integer value greater than zero which 
specifies the record’s logical ordinal position in the file. 


Relative I-O has full facilities for the FILE-CONTROL, I-O-CONTROL, and FD entries as specified in the 
formats of this manual. Within the PROCEDURE DIVISION, the Relative I-O provides full capabilities for 
the CLOSE, DELETE, OPEN, READ, REWRITE, START, USE, and WRITE statements. Additional fea- 
tures available include: the RESERVE clause, DYNAMIC accessing, SAME RECORD AREA, READ NEXT, 
and the START statement. 


INDEXED |-O 


Indexed I-O provides a capability to access records of a mass storage file in either a random or sequential 
manner. Each record in an indexed file is uniquely identified by the value of one or more keys within that 
record. 


Indexed I-O provides full facilities for the FILE-CONTROL, I-O-CONTROL, and FD entries as specified in 
the formats for this module. Within the PROCEDURE DIVISION, the Indexed I-O provides full capabilities 
for the CLOSE, DELETE, OPEN, READ, REWRITE, START, USE, and WRITE statements as specified 
in the formats for this module. Additional features include: the RESERVE clause, DYNAMIC accessing, AL- 
TERNATE KEYS, SAME RECORD AREA, READ NEXT, and the START statement. 
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SORT-MERGE 


The Sort-Merge module provides the capability to order one or more files of records, or to combine two or 
more identically ordered files of records, according to a set of user-specified keys contained within each rec- 
ord. Optionally, a user may apply some special processing to each of the individual records by input or output 
procedures. This special processing may be applied before and/or after the records are ordered by the SORT 
or after the records have been combined by the MERGE. 


Sort-Merge provides the facility for sorting one or more files, or combining two or more files, one or more 
times within a given execution of a COBOL74 program. 


Relationship with Sequential I-O 


The files specified in the USING phrase of the SORT and MERGE statements must be described implicitly 
or explicitly in the FILE-CONTROL paragraph as having sequential organization. 


The file specified in the GIVING phrase of the SORT and MERGE statements must be described implicitly 
or explicitly in the FILE-CONTROL paragraph as having sequential organization. 


No input-output statement may be executed for the file named in the Sort-Merge file description. 


ORGANIZATION 


Sequential Files are organized such that each record in the file except the first has a unique predecessor rec- 
ord, and each record except the last has a unique successor record. These predecessor-successor relationships 
are established by the order of WRITE statements when the file is created. Once established, the predecessor- 
successor relationships do not change except in the case where records are added to the end of the file. 


Relative File organization is permitted only on mass storage devices. A Relative File consists of records which 
are identified by relative record numbers. The file may be thought of as composed of a serial string of areas, 
each capable of holding a logical record. Each of these areas is denominated by a relative record number. 
Records are stored and retrieved based on this number. For example, the tenth record is the one addressed 
by relative record number 10 and is in the tenth record area, whether or not records have been written in 
the first through the ninth record areas. 


A file whose organization is Indexed is a mass storage file in which data records may be accessed by the 
value of a key. A record description may include one or more key data items, each associated with an index. 
Each index provides a logical path to the data records according to the contents of a data item within each 
record which is the record key for that index. 


The data item named in the RECORD KEY clause of the file control entry for an Indexed File is the prime 
record key for that file. For purposes of inserting. updating. and deleting records in a file, each record is identi- 
fied solely by the value of its prime record key. This value must, therefore, be unique and must not be changed 
when updating the record. 


A data item named in the ALTERNATE RECORD KEY clause of the file control entry for an Indexed File, 


is an alternate record key for that file. The value of an alternate record key may be nonunique if the DUPLI- 
CATES phrase is specified. These keys provide alternate access paths for retrieval of records from the file. 
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ACCESS MODE 


The ACCESS MODE clause specifies the manner in which records are accessed in a file. Sequential. Relative, 
and Indexed File access methods are discussed in the following paragraphs. 


Sequential Files 


In the sequential access mode. the sequence in which records are accessed is by the ascending order of ordinal 
location within the file. 


In the random access mode, the sequence in which records are accessed is specified by the contents of the 


ACTUAL KEY data item at the time the READ or WRITE statement is executed. The value of the ACTUAL 
KEY data item supplies the ordinal record number of the record accessed. 


Relative File 


In the sequential access mode. the sequence in which records are accessed is the ascending order of the 
relative record numbers of all records which currently exist within the file. 


In the random access mode, the sequence in which records are accessed is controlled by the programmer. 
The desired record is accessed by placing its relative record number in a relative key data item. 


In the dynamic access mode, the programmer may change at will from sequential access to random access 
using appropriate forms of input-output statements. 


Indexed Files 


In the sequential access mode, the sequence in which records are accessed is the ascending order of the record 
key values. The order of retrieval of records within a set of records having duplicate record key values is 
the order in which the records were written into the set. 


In the random access mode, the sequence in which records are accessed is controlled by the programmer. 
The desired record is accessed by placing the value of the record key in a record key data item. 


In the dynamic access mode, the programmer may change at will from sequential access to random access 
using appropriate forms of input-output statements. 


CURRENT RECORD POINTER 


For all file types, the current record pointer is a conceptual entity used in selection of the next record to be 
accessed within a given file. The setting of the current record pointer is affected only by the OPEN, START. 
and READ statements. The WRITE statement for a sequentially organized file may also affect the setting of 
the current record pointer. 
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l-O STATUS 
If the FILE STATUS clause is specified in a file control entry, a value is placed into the specified two-charac- 
ter data item during the execution of an OPEN, CLOSE, READ, WRITE. REWRITE, DELETE, or START 


statement and before any applicable USE procedure is executed, to indicate to the COBOL74 program the 
status of that input-output operation. 


Status Key 1 


The leftmost character position of the FILE STATUS data item is known as status key | and is set to a value 
which indicates one of the following conditions upon completion of the input-output operation. 


Value Condition 
0 Successful Completion 
1 At End 
2 Invalid Key 
3 Permanent Error 
8 Burroughs-Defined Condition 
9 Burroughs-Defined Condition 


The above conditions are defined in following text. 


SUCCESSFUL COMPLETION 


The input-output statement was successfully executed. 


AT END 
The sequential READ statement was unsuccessfully executed as a result of: 
1. An attempt to read other than a queue or port file record when no next logical record exists in the file. 


2. The first READ statement being executed for a file described with the OPTIONAL clause, when that 
file was not available to the program at the time its associated OPEN statement was executed. 


INVALID KEY 


The input-output statement was unsuccessfully executed as a result of one of the following: 


1. For a Format 2 READ statement, on other than a queue or port file, the contents of the ACTUAL 
KEY data item were less than 1 or greater than the original number of the last record ever written to 
the file. 

2. For a Format 2 WRITE statement, on other than a queue or port file, the contents of the ACTUAL 
KEY data item were less than | or greater than the last record allowed to be written because of the 
specification of a maximum file size. 
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PERMANENT ERROR 


The input-output statement was unsuccessfully executed as the result of a boundary violation for a sequential 
file or as the result of an input-output error, such as data check parity error, or transmission error. 
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BURROUGHS-DEFINED CONDITION 


The input-output statement encountered conditions other than those already defined and may have been unsuc- 
cessfully executed, depending on the value of status key 2. 


Status Key 2 


The rightmost character position of the FILE STATUS data item is known as status key 2 and is used to 
further describe the results of the input-output operation. This character contains a value as follows: 


1. If no further information is available concerning the input-output operation, then status key 2 contains 
a value of 0. 

2. When status key | contains a value of 0 indicating a successful completion, status key 2 may contain 
a value of 2 indicating a duplicate key. This condition indicates: 


a. For a READ statement, the key value for the current key of reference is equal to the value of 
that same key in the next record within the current key of reference. 

b. For a WRITE or REWRITE statement, the record just written created a duplicate key value for 
at least one alternate record key for which duplicates are allowed. 


3. When status key | contains a value of 2 indicating an INVALID KEY condition, status key 2 is used 
to designate the case of that condition as follows: 


a. A value of | in status key 2 indicates a sequence error for a sequentially accessed indexed file. 
The ascending sequence requirements of successive record key values have been violated (refer 
to WRITE in Section 7), or the prime record key value has been changed by the COBOL74 pro- 
gram between the successful execution of a READ statement and the execution of the next RE- 
WRITE statement for that file. 

b. A value of 2 in status key 2 indicates a duplicate key value. An attempt was made to write or 
rewrite a record that would create a duplicate key in an indexed file. 

c. A value of 3 in status key 2 indicates no record found. An attempt is made to access a record, 
identified by a key, but that record does not exist in the file. 

d. A value of 4 in status key 2 indicates a boundary violation. An attempt was made to write beyond 
the externally defined boundaries of an indexed file. The compiler specifies the manner in which 
these boundaries are defined. 


4. When status key | contains a value of 3 indicating a permanent error condition, status key 2 may 
contain a value of 4 indicating a boundary violation. This condition indicates that an attempt was made 
to write beyond the externally defined boundaries of a sequential file. The compiler specifies the man- 
ner in which these boundaries are defined. 
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6. When status key 1 contains a value of 9 indicating a Burroughs-defined condition, the value of status 
key 2 indicates the condition as follows: 


Status Key 2 
Value Condition 


Short Block 

Data Error 

Q-Empty or No Data 
Q-Full or No Buffer 
Timeout 

Break on Output 
Unexpected I-O Error 


OANA BRN 


SHORT BLOCK 


Because of the limitation of the physical recording medium, the system is unable to determine whether the 
logical record returned had been written to the file. Determination of the validity of the data record is the 
responsibility of the programmer. 


DATA ERROR 


When logical records are declared variable in length and the logical record length is supplied by the program- 
mer (by means of the RECORD CONTAINS clause), a data error occurs on a READ. WRITE. or REWRITE 
statement if the logical record length supplied is jess than the minimum record size or greater than the 
maximum record size declared for the file. This condition initiates no input-output operation nor does it cause 
data to be transferred to or from the record area. 


TIMEOUT 
A time limit has elapsed prior to the transfer of data to or from the hardware device. 
BREAK ON OUTPUT 


For an output or input-output file. this condition occurs if the physical hardware device is equipped with a 
break such that an operator can halt the transfer of data in process. 


UNEXPECTED 1-O ERROR 


An error may have occurred in the input-output operation but its nature cannot be determined. 
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FILE CONCEPTS 


The valid permissible combinations of the values of status key 1 and status key 2 are shown in Table 5-1. The. 
letter I (Indexed), P (Port), R (Relative), S (Sequential), or Q (Queue) at an intersection indicates a valid permissi-- 
ble combination. 


Duplicate Key or (*Data Error) 


Sequence Error or (*Short Block) 
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Table 5-1. Status Key Combinations 


STATUS KEY 2 
Boundary Violation. 
No Record Found 


Timeout 


No _— | 
0 


Successful] | 
Completion 


0 
At 
End 
] 
Invalid 
Key 
2 


Permanent 
Error 


Burroughs 
-Def ined 


The (*) distinguishes which error occurred when there are 


two with the same value. 


Break on Output 


i Error 
7 9 
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INVALID KEY 


The INVALID KEY condition can occur as a result of the execution of a START, READ, WRITE, RE- 
WRITE, or DELETE statement. For details of the causes of the condition, refer to the START, READ, 
WRITE, REWRITE, and DELETE statements in Section 7. 


When the INVALID KEY condition is recognized, these actions are taken in the following order: 


1. A value is placed into the FILE STATUS data item, if specified for this file, to indicate an INVALID 
KEY condition. Refer to I-O Status in this section for additional information. 

2. If the INVALID KEY phrase is specified in the statement causing the condition, control is transferred 
to the INVALID KEY imperative statement. Any USE procedure specified for this file is not 
executed. 

3. If the INVALID KEY phrase is not specified, but a USE procedure is specified for this file, either 
explicitly or implicitly, that procedure is executed. 


When the INVALID KEY condition occurs, executicn of the input-output statement which recognized the con- 
dition is unsuccessful and the file is not affected. 


AT END 


The AT END condition can occur as a result of the execution of a READ statement. For details of the causes 
of the condition refer to the READ statement in Section 7. 


LINAGE-COUNTER 


For Sequential Files only, the reserved word LINAGE-COUNTER is a name for a special register generated 
by the presence of a LINAGE clause in a file description entry. The implicit description is that of an unsigned 
integer whose size is equal to the size of integer-i or the data item referenced by data-name-1 in the LINAGE 
clause. Refer to the LINAGE clause in Section 6 for the rules governing the LINAGE-COUNTER. 
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FILE-CONTROL PARAGRAPH 


The FILE-CONTROL paragraph names each file and allows specification of other file-related information. 


General Format: 


| FILE-CONTROL. | file-control-entry } ... | 


FILE CONTROL ENTRY 


The file control entry names a file and may specify other file-related information. If using the sort-merge fea- 
tures. the file control entry names a sort or merge file and specifies the association of the file to a storage 
medium. 
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General Format: 


INPUT-OUTPUT SECTION. 


——_——— 


FILE-CONTROL. 
SELECT {OPTIONAL ] tile-name 


ASSIGN TO 


AREA 
. RESERVE integer-3 


AREAS 


: ORGANIZATION IS SEQUENTIAL | 


| SEQUENTIAL 
» ACCESS MODE IS). 


SEQUENTIAL . RELATIVE KEY IS data-name- |] 
RANDOM : 


ACCESS MODE IS _ RELATIVE KEY IS data-name-3 | 


l lpynamic} 


: ORGANIZATION IS INDEXED 
SEQUENTIAL L.| 
CESS MODE IS RANDOM 
DYNAMIC | 
» RECORD KEY IS data-name-4 


: ALTERNATE RECORD KEY IS data-name-S [WITH DUPLICATES] ] 


ORGANIZATION IS RELATIVE 


: FILE STATUS IS data-name- is 
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Syntax Rules: 


1. The SELECT clause must be specified first in the file control entry. The clauses which follow the 
SELECT clause may appear in any order. 

2. Each file described in the DATA DIVISION must be named only once with a file-name in the FILE- 
CONTROL paragraph. Each file specified in the file control entry must have a file description entry 
in the DATA DIVISION. For an Indexed File. the first eight letters of the file-name must be unique. 

3. If the ACCESS MODE clause is not specified. the ACCESS MODE IS SEQUENTIAL clause with- 
out the ACTUAL KEY phrase is implied. 

4. Data-name-! must be defined in the DATA DIVISION as a two-character data item of the category 
alphanumeric and must not be defined in the FILE SECTION or the COMMUNICATION SEC- 
TION 


; . data-name-3. datz : 
10. If no ORGANIZATION IS clause is specified. the ORGANIZATION IS SEQUENTIAL clause is 
implied. 
11. The OPTIONAL phrase may only be specified for sequential input files. Its specification is required 
for input files that are not necessarily present each time the object program is executed. 
The ACTUAL KEY phrase may be specified only for mass storage files, port files, and queue files. 


14. If a relative file is to be referenced by a START statement. the RELATIVE KEY phrase must be 
specified for that file. 

15. Data-name-3 must not be defined in a record description entry associated with that file-name. 

16. The data item referenced by data-name-3 must be defined as an unsigned integer. 

17. The data items referenced by data-name-4 and data-name-5 must each be defined as a data item of 
the category alphanumeric within a record description entry associated with that file-name. 

18. Neither data-name-4 nor data-name-5 can describe an item whose size is variable. Refer to the OC- 
CURS clause in Section 6 for more information. 

19. Data-name-5 cannot reference an item whose leftmost character position corresponds to the leftmost 
character position of an item referenced by data-name-4 or by any other data-name-S associated with 
this file. 


General Rules: 


1. The ASSIGN clause specifies the association of the file referenced by file-name to a storage medium. 
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. The RESERVE clause allows the user to specify the number of input-output areas allocated. If the 


RESERVE clause is specified. the number of input-output areas allocated is equal to the value of 
integer-3. If the RESERVE clause is not specified. one input-output area is allocated. 


. The ORGANIZATION clause specifies the logical structure of a file. The file organization is estab- 


lished at the time a file is created and cannot subsequently be changed. 


. When the access mode of a Relative File is sequential. records in the file are accessed in the order 


of ascending relative record numbers of existing records in the file. 


. When the access mode of an Indexed File is sequential. records in the file are accessed in the order 


of ascending record key values within a given key of reference. 


. When the FILE STATUS clause is specified. a value is moved by the operating system into the data 


item specified by data-name-! after the execution of every statement that references that file either 
explicitly or implicitly. This value indicates the status of execution of the statement. Refer to I-O 
Status in this section for additional information. 


. If the access mode of a Relative File is random. the value of the RELATIVE KEY data item indi- 


cates the record to be accessed. 


. If the access mode of an Indexed File is rancom. the value of the RECORD KEY data item indicates 


the record to be accessed. 


. When the access mode is dynamic. records in the file may be accessed sequentially and/or randomly. 


Refer to General Rules 5S and &. or 6 and 9 under the FILE-CONTROL statement. 


. All records stored in a Relative File are uniquely identified by relative record numbers. The relative 


record number of a given record specifies the record’s logical ordinal position in the file. The first 
logical record has a relative record number of |. and subsequent logical records have relative record 
numbers of 2. 3. 4. and so forth. 


. Ina Relative File. the data item specified by data-name-3 is used to communicate a relative record 


number between the program and the MCP. 


. The RECORD KEY clause specifies the prime record key for the file. The values must be unique 


among records of the file. The prime record key provides an access path to records in an Indexed 
File. 


. An ALTERNATE RECORD KEY clause specifies an alternate record key for the file and provides 


an alternate access path to records in an Indexed File. 


. In an Indexed File. the data descriptions of dlata-name-4 and data-name-S as well as the relative loca- 


tions within a record must be the same as that used when the file was created. The number of alter- 
nate keys for the file must also be the same as that used when the file was created. 


. The DUPLICATES phrase specifies that the value of the associated alternate record key may be du- 


plicated within any of the records in the file If the DUPLICATES phrase is not specified. the value 
of the associated alternate record key must not be duplicated among any of the records in the file. 


. DISK specifies that mass storage is the storage medium of the file. A more precise specification of 


the medium may be made in the VALUE OF clause in the File Description entry or by means exter- 
nal to the Janguage. 


B 1000 Systems COBOL74 Reference Manual 
Environment Division 


l-O-CONTROL 


l-O-CONTROL PARAGRAPH 


The I-O-CONTROL paragraph specifies the memory area which is to be shared by different files, and the loca- 
tion of files on a multiple file reel. 


General Format: 


I-O-CONTROL. 
RECORD 
; SAME | SORT AREA FOR file-name-3 {, file-name-4 } 
SORT-MERGE 


Syntax Rules: 


— 


. The I-O-CONTROL paragraph is optional. 

2. In the SAME AREA clause, SORT and SORT-MERGE are equivalent. 

3. If the SAME SORT AREA or SAME SORT-MERGE AREA clause is used, at least one of the file- 
names must represent a sort or merge file. Files that do not represent sort or merge files may also 
be named in the clause. 

4. The four formats of the SAME clause (SAME AREA, SAME RECORD AREA, SAME SORT AREA, 

SAME SORT-MERGE AREA) are considered separately in the following description. 


More than one SAME clause may be included in a program; however, the following restrictions apply: 


a. A file-name must not appear in more than one SAME AREA clause. 

b. A file-name must not appear in more than one SAME RECORD AREA clause. 

c. If one or more file-names of a SAME AREA clause appear in a SAME RECORD AREA clause, 
all of the file-names in that SAME AREA clause must appear in the SAME RECORD AREA 
clause. However, additional file-names not appearing in that SAME AREA clause may also appear 
in that SAME RECORD AREA clause. The rule that only one of the files mentioned in a SAME 
AREA clause can be open at any given time takes precedence over the rule that all files mentioned 
in a SAME RECORD AREA clause can be open at any given time. 

d. A file-name that represents a sort or merge file must not appear in more than one SAME SORT 
AREA or SAME SORT-MERGE AREA clause. 

e. If a file-name that does not represent a sort or merge file appears ina SAME AREA clause and 
one or more SAME SORT AREA or SAME SORT-MERGE AREA clauses, all of the files named 


in that SAME AREA clause must be named in that SAME SORT AREA or SAME SORT-MERGE 
AREA clause(s). 


5. The files referenced in the SAME AREA, SAME RECORD AREA, SAME SORT AREA, or SAME 
SORT-MERGE AREA clause need not all have the same organization or access type. 
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General Rules: 


. If the SAME SORT AREA or SAME SORT-MERGE AREA clause is used, at least one of the file- 


names must represent a sort or merge file. Files that do not represent sort or merge files may also 
be named in the clause. This clause specifies that storage is shared as follows: 


a. The SAME SORT AREA or SAME SORT-MERGE AREA clause specifies a memory area which 
is made available for use in sorting or merging each sort or merge file named. Thus, any memory 
area allocated for the sorting or merging cf a sort or merge file is available for reuse in sorting 
or merging any of the other sort or merge files. 

b. In addition, storage areas assigned to files that do not represent sort or merge files may be allo- 
cated as needed for sorting or merging the sort or merge files named in the SAME SORT AREA 
or SAME SORT-MERGE AREA clause. The extent of such allocation is specified by the MCP. 

c. Files other than sort or merge files do not share the same storage area with each other. If the 
user wishes these files to share the same storage area with each other, a SAME AREA or SAME 
RECORD AREA clause naming these files must also be included in the program. 

d. During the execution of a SORT or MERGE statement that refers to a sort or merge file named 
in this clause. any files named in this clause that are not sort-merge files must not be open. 


. The SAME AREA clause specifies that two or more files that do not represent sort or merge files 


are to use the same memory area during processing. The area being shared includes all storage area 
assigned to the files specified. It is not valid to have more than one of the files open at the same 
time. Refer to syntax rule 4c under the I-O-CONTROL paragraph. 


. The SAME RECORD AREA clause specifies that two or more files are to use the same mernory area 


for processing of the current logical record. All of the files may be open at the same time. A logical 
record in the SAME RECORD AREA is considered as a logical record of each opened output file 
whose file-name appears in this SAME RECORD AREA clause and of the most recently read input 
file whose file-name appears in this SAME RECORD AREA clause. This is equivalent to an implicit 
redefinition of the area; records are aligned on the leftmost character position. 


CODING THE ENVIRONMENT DIVISION 


Figure 5-1 provides an example of how the ENVIRONMENT DIVISION may be coded in the source program. 
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GENERAL 


The DATA DIVISION describes the data that the object program is to accept as input, to manipulate, to cre- 
ate, or to produce as output. Data to be processed belongs to these three categories: 


1. That which is contained in files and enters or leaves the internal memory of the computer from a spec- 
ified area or areas. 

2. That which is developed internally and placed into intermediate or working storage, or placed into 
specific format for output reporting purposes. 

3. Constants which are defined by the user. 


DATA DIVISION ORGANIZATION 


The DATA DIVISION, which is one of the required divisions in a program, is subdivided into sections. These 
are FILE, WORKING-STORAGE, LINKAGE, and COMMUNICATION SECTIONS. 


The FILE SECTION defines the structure of data files. Each file is defined by a file description entry and 


one or more record descriptions. Record descriptions are written immediately following the file description en- 
try. 


The WORKING-STORAGE SECTION describes records and noncontiguous data items which are not part of 
external data files but are developed and processed internally. It also describes data items whose values are 
preassigned in the source program. 


The LINKAGE SECTION appears in the called program and describes data items that are to be referred to 


by the calling program and the called program. The structure is the same as the WORKING-STORAGE SEC- 
TION. 


The COMMUNICATION SECTION describes the data items in the source program that serve as the interface 
between the Data Communication Subsystem and the program. — 
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DATA DIVISION STRUCTURE 


The following structure shows the general format of the sections of the DATA DIVISION, and defines the 
order of presentation in the source program. 


A 


DATA DIVISION. 
FILE SECTION. 


Bee [record-description-entry] ... 
sort-merge-file-description-entry (record-description-entry) ... 


ns SECTION. 


| 77-level-description-entry 

record-description-entry 

LINKAGE SECTION. 
record-description-entry 


oe | 


COMMUNICATION SECTION. 


[ communication-description-entry [record-description-entry] ... ] 
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FILE SECTION 


In a COBOL74 program, the file description entry (FD) represents the highest level of organization in the 
FILE SECTION. The FILE SECTION header is followed by a file description entry consisting of a level indi- 
cator (FD), a file-name, and a series of independent clauses. The FD clauses specify the size of the logical 
and physical records, the presence or absence of label records, the value of label items, the names of the 
data records which comprise the file, and the number of lines to be written on a logical printer page. The 
entry is terminated by a period. 


The Sort-Merge file description (SD) gives information about the size and the name of the data records associ- 
ated with the file to be sorted or merged. There are no label procedures which the user can control, and the 
rules for blocking and internal storage are peculiar to the SORT and MERGE statements. 


RECORD DESCRIPTION 


A record description consists of a set of data description entries which describe the characteristics of a 
particular record. Each data description entry consists of a level-number followed by a data-name (if required), 
followed by a series of independent clauses as required. 


Examples: 


Ol DATA=!TEM=ONE PICTURE xX(10). 
03 LINE-COUNT PICTURE 999 VALUE ZEROES. 


A record description has a hierarchical structure and, therefore, the clauses used with an entry may vary consi- 
derably, depending upon whether or not it is followed by subordinate entries. The structure of a record de- 
scription is defined in Concepts of Levels, Section 2, while the elements allowed in a record description are 
shown in the data description structure. 
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FILE DESCRIPTION STRUCTURE 


The file description entry furnishes information concerning the physical structure, identification, and record 
names pertaining to a given file. 


General Format: 


a rr ee A A aN A A SO et A NN A FY 


[ED file-name 


. RECORDS 
; BLOCK CONTAINS  [integer-1 TO] integer-2 
CHARACTERS 


[ ; RECORD CONTAINS [ integer-3 TO | integer-4 CHARACTERS | 


RECORD IS | STANDARD | 
; LABEL 


rEcorDs AREY lomitrEep | 


N 


( data-name-] 
; VALUE OF attribute-name-| IS ) 


literal-1 
| data-name-2 
, attribute-name-2 IS 
literal-2 
{ RECORD Is \ 
- DATA >  data-name-3 [, data-name-4] ... 
URECORDS ARE | 


( data-name-5 } ; ( data-name-6 
- LINAGE IS > LINES , WITH FOOTING AT 


\ integer-5 ] integer-6 


data-name-7 ( data-name-8 | 
, LINES AT TOP , LINES AT BOTTOM 
integer-7 \ integer-8 


[ . CODE-SET IS alphabet-name ]. 


{ record-description-entry +... | 


a et Ae tt Ee EY SSS 


Syntax Rules: 


1. The level indicator FD identifies the beginning of a file description and must precede the file-name. 

2. The clauses which follow the name of the file are optional in many cases, and order of appearance 
is immaterial. 

. One or more record description entries must follow the file description entry. 


lad 
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SORT-MERGE FILE DESCRIPTION STRUCTURE 


The Sort-Merge file description entry furnishes information concerning the physical structure, identification, 
and record names of the file to be sorted or merged. 


General Format: 


[ sp file-name 
[; RECORD CONTAINS [ integer-1 TO] integer-2 CHARACTERS | 
RECORD IS 


; DATA data-name-1 [ , data-name-2 | 
RECORDS ARE 


{ record-description-entry I ee | 


Syntax Rules: 


1. The level indicator SD identifies the beginning of the Sort-Merge file description entry and must pre- 
cede the file-name. 


2. The clauses which follow the name of the file are optional and their order of appearance is immaterial. 
3. One or more record description entries must follow the Sort-Merge file description entry; however, 
no input-output statements may be executed for this file. 
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CODING THE FILE SECTION 


Figure 6-1 illustrates the coding of the FILE SECTION and shows a File Description and a Sort-Merge File 
Description. 
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Figure 6-1. Coding the FILE SECTION 
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BLOCK CONTAINS 
The BLOCK CONTAINS clause specifies the size of a physical record. 


General Format: 


oe RN RT ttc A A LR eR Nt ornate nants ten eens enmemannr teense enrnsAen meerernsrneettnea ttre rinneeine tate aie RMR REN NSA 


RECORDS 


CHARACTERS 


a me errr TEN eC EEE NN A ES rh pe rre—rrerrerersnnnpenssthsneneniteshseemsernSote- feat AAAHntANNAR ALIS Rind NEAT 


BLOCK CONTAINS _ [ integer-] TO | integer-2 


Syntax Rules: 


1. When the word RECORDS is not specified, the value of integer-2 must not be less than the largest 
record specified for the file. 


General Rules: 


|. This clause is required when the physical record contains more than one logical record. If this clause 
is not specified, the physical record is presumed to contain one logical record that is as large as the 
largest record specified for this file. 

. When the word RECORDS is specified, the physical record size is considered to be integer-2 times 

the largest record specified for this file. 

3. When the word CHARACTERS is specified, the physical record size is considered to be integer-2 
characters. If integer-2 is not a multiple of the |argest record specified for this file, the physical record 
size is adjusted so that it is a multiple of the largest record specified, but must not exceed the value 
of integer-2. 

4, Integer-2 represents the exact number of records or characters in the physical record unless the size 
is adjusted as stated in General Rule 3. 

5. If logical records of differing sizes are grouped into one physical record, the amount of data transfer- 
red from the record area to the physical record depends on the size of the record named in the 
WRITE or REWRITE statement. In this case, the logical records are aligned on maximum record- 
size boundaries. If the size of the record named is not equal to the maximum record size specified 
for the file, the data is transferred to the physical record according to the rules specified for the 
MOVE statement without the CORRESPONDING phrase, with the sending area considered to be a 
group item. 


to 
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CODE-SET 


The CODE-SET clause specifies the character code set used to represent data on the external media. 


General Format: 


CODE-SET IS alphabet-name | 


Syntax Rules: 


1. When the CODE-SET clause is specified for a file, all data in that file must be described as USAGE 
IS DISPLAY and any signed numeric data must be described with the SIGN IS SEPARATE clause. 

2. The aiphabet-name clause referenced by the CODE-SET clause must not specify the literal phrase. 
and must be declared in the SPECIAL-NAMES Paragraph. 


General Rules: 


1. If the CODE-SET clause is specified, alphabet-name specifies the character code convention used to 
represent data on the external media. It also specifies the algorithm for converting the character codes 
on the external media from/to the native character codes. This code conversion occurs during the 
execution of an input or output operation. Refer to the SPECIAL-NAMES paragraph in Section 5. 

2. If the CODE-SET clause is not specified, the native character code set, EBCDIC, is assumed for data 
on the external media. 

3. For the creation of the translate table to be used by the COBOL74 compiler, refer to the CREATE/ 
TABLE utility. For example, when ASCII is the character code set, the COBOL74 compiler requires 
a file called TRANSLATE/ASCII to perform the translation. The file, TRANSLATE/ASCII. is created 
by using the CREATE/TABLE utility. 


Example: 
The following example shows how the character code set desired is declared in the SPECIAL-NAMES 


paragraph and then used in the CODE-SET clause. 


SPECIAL-NAMES. 
ODT IS SPO 
SW] ON STATUS IS SWITCH-1-ON 
MY-REC-MODE IS ASCII. 


FD: NSF ELE 
BLOCK CONTAINS 5 RECORDS 
CODE=SET -I'S .MY¥=REC=MODE. 


Ol DATA-1TEM-ONE PIC xX(80). 
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DATA RECORDS 


The DATA RECORDS clause serves only as documentation for the names of data records with their associ- 
ated file. 


General Format: 


RECORD IS 
data-name-| [, data-name-2 ] 


RECORDS ARE j 


Syntax Rules: 


1. Data-name-! and data-name-2 are the names of data records and must have 01 level-number record 
descriptions, with these same names, associated with them. 


General Rules: 


1. The presence of more than one data-name indicates that the file contains more than one type of data 
record. These records may be of different sizes, different formats, and so forth. The order in which 
they are listed is not significant. 

2. Conceptually, all data records within a file share the same area. This is in no way altered by the pres- 
ence of more than one type of data record within the file. 
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LABEL RECORDS 


The LABEL RECORDS clause specifies whether labels are present. 


i 


General Format: 


STANDARD 


LABEL 


RECORD IS 


| 


1. When this clause is not specified, the STANDARD option is assumed. 


RECORDS ARE OMITTED 


Syntax Rules: 


General Rules: 


1. OMITTED specifies that no explicit labels exist for the file or the device to which the file is assigned. 
For Indexed and Relative Files, OMITTED is documentation only. 

2. In a Sequential File, STANDARD specifies that labels exist for the file or the device to which the 
file is assigned and the labels conform to the label specifications. 

3. The LABEL RECORDS clause is ignored for mass storage files. All mass storage files are labeled. 
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LINAGE 


The LINAGE clause provides a means for specifying the depth of a logical page in terms of number of lines. 
It also provides for specifying the size of the top and bottom margins on the logical page, and the line number, 
within the page body, at which the footing area begins. 


General Format: 


ees data-name-2 ; 
LINAGE Is integer-| LINES [ , WITH FOOTING AT integer-2 


| data-name-3 ne } 
| | LINES AT TOP integer-3 , LINES AT BOTTOM integer-4 


i ar Se i ANA RA rerNETRTit Ot EE: ete A A RR SE 


The relationship of the page components is shown in Figure 6-2. 
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TOP MARGIN 
(Integer-3) 


LOGICAL PAGE PAGE BODY 
({Integer-1) 


FOOTING 
(Integer -2) 


BOTTOM MARGIN 
(Integer-4) 


G12331 


Figure 6-2. Linage Page Relationship 


Syntax Rules: 


1. Data names must be elementary unsigned numeric items. 
2. The value of integer-1 must be greater than zero. 

3. The value of integer-2 must not be greater than integer-!. 
4, Integer-3 and integer-4 may be equal to zero. 
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General Rules: 


6-14 


1, 


Nd 


The LINAGE clause provides a means for specifying the size of a logical page in terms of the number 
of lines. 


Example: 

Logical page = LINAGE LINES + LINES AT TOP + LINES AT BOTTOM 
If LINES AT TOP or LINES AT BOTTOM are not specified, the values for these functions are 0. 
If the FOOTING phrase is not specified, the assumed value is equal to integer-1 (or data-name-1). 


There is not necessarily any relationship between the size of the logical page and the size of a physical 
page. 


. The value of integer-1 (data-name-1) specifies the number of lines that can be written and/or spaced 


on the logical page. That part of the logical page in which these lines can be written and/or spaced 
is called the page body. 


. The value of integer-3 (data-name-3) specifies the number of lines that comprise the top margin on 


the logical page. 


. The value of integer-4 (data-name-4) specifies the number of lines that comprise the bottom margin 


on the logical page. 


. The value of integer-2 (data-name-2) specifies the line number within the page body at which the foot- 


ing area begins, where 0 < integer-2 < integer-1. 


. The values of integer-1, integer-2, and integer-¢, if specified, are used at the time the file is opened 


with the OUTPUT phrase, to specify the number of lines that comprise each of the indicated sections 
of a logical page. 


The value of integer-2, if specified, is used at that time to define the footing area. 


These values are used for all logical pages written for the file during a given execution of the program. 


. The values of the data items referenced by data-name-1, data-name-3, and data-name-4, if specified, 


are used as follows: 


a. The values of the data items, at the time an OPEN statement with the OUTPUT phrase is executed 
for the file, are used to specify the number of lines that are to comprise each of the indicated sec- 
tions of the FIRST logical page. 

b. The values of the data items, at the time a WRITE statement with the ADVANCING PAGE 
phrase is executed or page overflow condition occurs, are used to specify the number of lines that 
are to comprise each of the indicated sections for the next logical page. 


. The value of data-name-2, if specified at the time an OPEN statement with the OUTPUT phrase is 


executed for the file, is used to define the footing area for the first logical page. 


At the time a WRITE statement with the ADVANCING PAGE phrase is executed or a page overflow 
condition occurs, data-name-2 is used to define the footing area for the next logical page. 
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LINAGE-COUNTER 


A LINAGE-COUNTER is generated by the presence of a LINAGE clause. The value in the LINAGE-COUN- 
TER at any given time represents the line number at which the logical device is positioned within the current 
page body. The rules governing the LINAGE-COUNTER are as follows: 


1. A separate LINAGE-COUNTER is supplied for each file described in the FILE SECTION whose file 
description entry contains a LINAGE clause. 
2. LINAGE-COUNTER may be referenced but not modified by PROCEDURE DIVISION statements. 


Since more than one LINAGE-COUNTER may exist in a program, the user must qualify LINAGE- 
COUNTER by file name when necessary. 


3. LINAGE-COUNTER is automatically modified, according to the following rules, during the execution 
of a WRITE statement: 


a. When the ADVANCING PAGE phrase of the WRITE statement is specified, the LINAGE-COUN- 
TER is automatically reset to 1. 

b. When the ADVANCING identifier-2 or the integer phrase of the WRITE statement is specified, 
the LINAGE-COUNTER is incremented by integer or the value of identifier-2. 

c. When the ADVANCING phrase of the WRITE statement is not specified, the LINAGE-COUN- 
TER is incremented by the value of 1. 

d. The value of LINAGE-COUNTER is automatically reset to | when the device is repositioned to 
the first line that can be written on for each of the succeeding logical pages. 


4. The value of LINAGE-COUNTER is automatically set to 1 at the time an OPEN statement is 
executed for the associated file. 


Example: 


The following example shows the LINAGE clause used to define a logical printer page (standard 11-inch form). 
Vertical height is made up of a top margin, a page body, and a bottom margin. All actual printing is done 
in the page body, including a commonly required footing area of five lines near the bottom of the page body. 


Now equate: 


page body to integer-] 
footing to integer-2 

top margin to integer-3 
bottom margin to integer-4 


the statement would be 
LINAGE 1S 50 LINES, 
WITH FOOTING AT 45, 


LINES AT TOP 6, 
LINES AT BOTTOM 10. 


1108883 6-15 


B 1000 Systems COBOL/74 Reference Manual 
Data Division 


RECORD CONTAINS 


RECORD CONTAINS 
The RECORD CONTAINS clause specifies the size ol the data records. 


General Format: 


| RECORD CONTAINS _ | integer-1 TO | integer-2 CHARACTERS | 


General Rules: 


1. The size of each data record is completely defiried within the record description entry; therefore, this 
clause is never required. When present, however, the following items apply: 


a. Integer-2 may not be used unless all the data records in the file have the same size. In this case, 
integer-2 represents the exact number of characters in the data record. If integer-! and integer- 
2 are both shown, they refer to the minimum number of characters in the smallest size data record 
and the maximum number of characters in the largest size data record, respectively. 

b. The size is specified in terms of the number of character positions required to store the logical 
record, regardless of the types of characters used to represent the items within the logical record. 
The size of a record is determined by the sum of the number of characters in all fixed length 
elementary items plus the sum of the maximum number of characters in any variable length itern 
subordinate to the record. 


2. For an Indexed File integer-2 cannot be less than four. 


6-16 


B 1000 Systems COBOL74 Reference Manual 
Data Division 


1108883 6-17 


B 1000 Systems COBOL74 Reference Manual 
Data Division 


VALUE OF 


DATA-NAME-1 is. defined: as an alphanumeric data item in the DATA DIVISION. The programmer builds 
the literal string in the data item (DATA-NAME-1) prior to the OPEN of the file. This option cannot be used 
for Indexed Files. 


Ol DATA-NAME-1 PIC X(35). 


The following are examples of statements which may be used in the PROCEDURE DIVISION to create the 
literal string. 


MOVE ''MYFILE'' TO DATA-NAME-1. 
MOVE ''FAMILY/MYFILE'' TC DATA-NAME-1. 
MOVE. '"'FAMILY/MYFILE ON MYPACK'' TO DATA-NAME-1. 


STRING ''FAMILY'', ''/'', ''MYFILE', DELIMITED BY SIZE 
INTO DATA-~NAME~1. 


STRING ''MYFILE'', '' ON '', ''MYPACK'' DELIMITED BY SIZE 
INTO DATA-NAME-1I. 


Use of the STRING statement satisfies the requirement that there is no spaces either side of the slash (/) when 
creating the title of the file. 
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DATA DESCRIPTION STRUCTURE 


A data description entry specifies the characteristics of a particular item of data. 
General Format: 


Format |: 


data-name-! 
level-number 


FILLER 


[; REDEFINES data-name-2 ] 


PICTURE 
‘ IS character-string 


PIC 
COMPUTATIONAL 
; [USAGE IS] ) COMP 
| DISPLAY 
INDEX 


OCCURS |[integer-1 TO] integer-2 TIMES 


we 


[DEPENDING ON data-name-3 ] 
ASCENDING 
KEY IS data-name-4 [,data-name-5] ...]... 
DESCENDING 


[ INDEXED BY index-name-! [, index-name-2] ... ] 


( LEADING 


; [SIGN IS] [ SEPARATE CHARACTER ] 


(TRAILING 
SYNCHRONIZED besx 7 


SYNC RIGHT | 


JUSTIFIED 
; RIGHT 
JUST 


; BLANK WHEN ZERO ] 
; VALUE JIS literal , 


SS SS SS 
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THROUGH 


data-name-3 
THRU 


66 data-name-1; RENAMES data-name-2 


Format 3: 


VALUE IS THROUGH ; 
88 dition- : - literal- iteral-2 
condition-name VALUES ARE itera THRU 


THROUGH 
, literal-3 THRU literal-4 


Syntax Rules: 


1. The level-number in Format 1 may be any number from 01 through 49 or 77. 

2. The clauses may be written in any order with two exceptions: the data-name-! or FILLER clause 
must immediately follow the level-number; the REDEFINES clause, when used, must immediately fol- 
low the data-name-! clause. 

3. The PICTURE clause must be specified for every elementary item except an index data item, in which 
case, use of this clause is prohibited. 

4. The words THRU and THROUGH are equivalent. 


General Rules: 


1. The SYNCHRONIZED, PICTURE, JUSTIFIED, and BLANK WHEN ZERO clauses must not be 
specified except for an elementary data item. 

2. Format 3 is used for each condition-name. Each condition-name requires a separate entry with level- 
number 88. Format 3 contains the name of the condition and the value, values, or range of values 
associated with the condition-name. The condition-name entries for a particular conditional variable 
must follow the entry describing the item with which the condition-name is associated. A condition- 
name can be associated with any data description entry which contains a level-number except the fol- 
lowing: 


a. Another condition-name. 

b. A level 66 item. 

c. A group item containing items for which USAGE (other than USAGE IS DISPLAY) is specified 
either explicitly or implicitly. 

d. An index data item (Refer to the USAGE IS INDEX clause in this section). 
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BLANK WHEN ZERO 
The BLANK WHEN ZERO clause permits the blanking of an item when the value is zero. 


General Format: 


[ BLANK WHEN ZERO | 


Syntax Rules: 


1. The BLANK WHEN ZERO clause can be used only for an elementary item whose PICTURE is spec- 
ified as numeric or numeric edited. Refer to PICTURE in this section. 


General Rules: 
I. When the BLANK WHEN ZERO clause is used, the item will contain spaces if the value of the item 
is zero. 


2. When the BLANK WHEN ZERO clause is used for an item whose PICTURE is numeric, the catego- 
ry of the item is considered to be numeric edited. 
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DATA-NAME 
FILLER 


DATA-NAME OR FILLER 


A data-name specifies the name of the data being described. The word FILLER specifies an elementary item 
of the logical record that cannot be referred to explicitly. 


General Format: 


em es nA RT tt A A A AE A A ME MSNA STA Ss EO A A EE 


data-name \ 
{FILLER 


Syntax Rules: 


1. In the FILE, WORKING-STORAGE, COMMUNICATION, and LINKAGE SECTIONS, a data- 
name or the key word FILLER must be the first word following the level-number in each data descrip- 
tion entry. 


General Rules: 
1. The key word FILLER may be used to name an elementary item in a record. Under no circumstances 
can a FILLER item be referred to explicitly. However, the key word FILLER may be used as a con- 


ditional variable because such use does not require explicit reference to the FILLER item, but to its 
value. 
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The JUSTIFIED clause specifies nonstandard positioning of data within a receiving data item. 


General Format: 


JUSTIFIED 


RIGHT 
JUST 


Syntax Rules: 


1. The JUSTIFIED clause can be specified only at the elementary item level. 

2. JUST is an abbreviation for JUSTIFIED. 

3. The JUSTIFIED clause cannot be specified for any data item described as numeric or for which edit- 
ing is specified. 


General Rules: 


1. When a receiving data item is described with the JUSTIFIED clause and the sending data item is larg- 
er than the receiving data item, the leftmost characters are truncated. 


Example: 


Sending Receiving 


ABCDEFG CDEFG 
PIC X(7) PIC X(5) 


When the receiving data item is described with the JUSTIFIED clause and it is larger than the sending 


data item, the data is aligned at the rightmost character position in the data item with space fill for 
the leftmost character positions. 


Example: 


Sending Receiving 


ABCDE ABCDE 
PIC X(5) PIC X(7) 


2. When the JUSTIFIED clause is omitted, the standard rules for aligning data within an elementary item 
apply. Refer to Standard Alignment Rules in Section 2. 
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LEVEL-NUMBER 


The level-number shows the hierarchy of data within a logical record. In addition, it is used to identify entries 
for working storage items, linkage items, condition-names, and the RENAMES clause. 


General Format: 


level-number | 


Syntax Rules: 


{. A level-number is required as the first element in each data description entry. 

2. Data description entries subordinate to an FD, SD, or CD entry must have level-numbers with the 
values 01 through 49, 66 or 88. Refer to the FD, SD, and CD file descriptions in the paragraphs en- 
titled File Description Structure, Sort-Merge File Description Structure, and Communication Descrip- 
tion Structure in this section. 

3. Data description entries in the WORKING-STORAGE SECTION and LINKAGE SECTION must 
have level-numbers with the values 01 through 49, 66, 77 or 88. 


General Rules: 


1. The level-number 01 identifies the first entry in each record description. Less inclusive groupings are 
given higher numbers (not necessarily successive) up to a limit of 49. 
2. Special level-numbers have been assigned to certain entries where there is no real concept of level: 


a. Level-number 77 is assigned to identify noncontiguous working storage data items, and noncontigu- 
ous linkage data items, and can be used ecnly as described by Format | of the data description 
structure. 

b. Level-number 66 is assigned to identify RENAMES entries and can be used only as described in 
Format 2 of the data description structure. 

c. Level-number 88 is assigned to entries which define condition-names associated with a conditional 
variable and can be used only as described in Format 3 of the data description structure. 


3. Multiple level 01 entries subordinate to any given level indicator represent implicit redefinitions of the 
same area. 


Examples: 


The following is an example of a record layout which corresponds to Figure 6-3 showing a record description 
and the use of level numbers. 


STUDENT RECORD 


STUDENT NO. GRADE] BIRTH DATE 


mth day yr 
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Figure 6-3. Level Numbers 
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OCCURS 


The OCCURS clause g@liminates the need for separate entries for repeated data items and supplies information 
required for the application of subscripts or indices. 


General Format: 


Format 1: 


A ett SN A RS UN A RL Sn 


OCCURS integer-2 TIMES 


| ASCENDING 
KEY IS data-name-2 [, data-name-3] ... 
DESCENDING 


[ INDEXED BY index-name-l [, index-name-? | ae } 


Format 2: 


OCCURS integer-1 TO integer-2 TIMES DEPENDING ON data-name-|! 


a a ST 


( ASCENDING 
KEY IS data-name-2 [ , data-name-3] ... 
\ DESCENDING 


[ INDEXED BY index-name-! [, index-name-2] ... ] 


ne at a a ST SSAA fo tN Sere Hutt ssn 


Syntax Rules: 


1. When both integer-1 and integer-2 are used, the value of integer-! must be less than the value of 


integer-2. 
2. The data description of data-name-I must describe a positive integer and, therefore, cannot be zero. 
3. Data-name-1, data-name-2, data-name-3, ... may be qualified. 


4. Data-name-2 must either be the name of the entry containing the OCCURS clause or the name of 
an entry subordinate to the entry containing the OCCURS clause. 

5. Data-name-3, and so forth, must be the name of an entry subordinate to the group item which is 
the subject of this entry. 

6. An INDEXED BY phrase is required if the subject of this entry, or an entry subordinate to this 
entry, is to be referred to by indexing. 

7. A data description entry that contains Format 2 of the OCCURS clause may only be followed, within 
that record description, by data description entries which are subordinate to it. 
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OCCURS 


. The OCCURS clause cannot be specified in a data description entry that: 


a. Has an 01, 66, 77, or 88 level-number. 
b. Describes an item whose size is variable. The size of an item is variable if the data description 
of any subordinate item contains Format 2 of the OCCURS clause. 


. In Format 2, the data item defined by data-name-1 must not occupy a character position within the 


range of the first character position defined by the data description entry containing the OCCURS 


clause and the last character position defined by the record description entry containing that OC- 
CURS clause. 


10. If data-name-2 is not the subject of this entry, then: 
a. All of the items identified by the data-names in the KEY IS phrase must be within the group 
item which is the subject of this entry. 
b. Items identified by the data-name in the KEY IS phrase must not contain an OCCURS clause. 
c. There must not be any entry that contains an OCCURS clause between the items identified by 
the data-names in the KEY IS phrase and the subject of this entry. 
11. Index-name-1, index-name-2, ... must be unique words within the program. 
12. Integer-2 in Format 1! and integer-1 in Format 2 cannot be zero. 
General Rules: 


1. 


Z, 


The OCCURS clause is used in defining tables and other homogeneous sets of repeated data items. 
Whenever the OCCURS clause is used, the data-name which is the subject of this entry must be either 
subscripted or indexed whenever it is referred to in a statement other than SEARCH or USE FOR 
DEBUGGING. Further, if the data-name associated with the OCCURS clause is the name of a group 
item, then all data-names belonging to the group must be subscripted or indexed when used as oper- 
ands, except as the object of a REDEFINES clause. Refer to Subscripting, Indexing, and Identifier 
in Section 2. 

Except for the OCCURS clause, all data description clauses associated with an item whose description 
includes an OCCURS clause apply to each occurrence of the item described. 


3. The number of occurrences of the subject entry is defined as follows: 


1108883 


a. In Format 1, the value of integer-2 represents the exact number of occurrences. 


b. In Format 2, the current value of the data item referenced by data-name-1 represents the number 
of occurrences. 


Format 2 specifies that the data-name associated with the OCCURS clause has a variable number 
of occurrences. The value of integer-2 represents the maximum number of occurrences and the 
value of integer-1 represents the minimum number of occurrences. This does not imply that the 
length of the subject of the entry is variable, but that the number of occurrences is variable. 


When a table element is referenced, the value of data-name-! must fall within the range integer- 
1 through integer-2, inclusive. If the value of data-name-1 is outside this range, the execution of 
the program is terminated. The value of data-name-1 is used to determine the last table element 
that may be referenced. When the value of data-name-1 is less than integer-2, the data items whose 
occurrence numbers exceed the value of data-name-1 are inaccessible. Reducing the value of the 
data item referenced by data-name-1! has no effect upon the contents of data items whose occur- 
rence numbers now exceed the value of the data item referenced by data-name-1. 
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4. When a group item that has a subordinate entry that specifies Format 2 of the OCCURS clause is 
referenced, only that part of the table area that is specified by the value of data-name-1| is used in 


the operation. 


5. The KEY IS phrase is used to indicate that the repeated data is arranged in ascending or descending 
order according to the values contained in data-name-2, data-name-3, and so forth. The ascending or 
descending order is determined according to the rules for comparison of operands (refer to Relation 
Condition in Section 7 for the Comparison of Numeric Operands and the Comparison of Nonnumeric 
Operands). The data-names are listed in descending order of significance. 


Examples: 


The following data descriptions illustrate the use of an OCCURS clause to provide equivalent data mapping 


with fewer data names. 


Ol DATA~REC. 
03 AMOUNT-ONE 
03 AMOUNT-TWO 
03 AMOUNT-THREE 
03 DESC-ITEM 
03 DESC-NO 


Ol DATA-REC. 


Pic 9(8). 03 AMOUNT Pic 9(8) 
Pic 9(8). OCCURS 3 TIMES. 
Pic 9(8). 

PIC X(20). 03 DESC-ITEM PIC X(20). 
PIC 9(5). 03 DESC-NO Pic 9(5). 


This example illustrates a use of the OCCURS clause to provide nested descriptions. A reference to ITEM- 
4 requires the use of three levels of subscripting, for example, ITEM-4 (2, 5, 4). A reference to ITEM-3 re- 
quires two subscripts, for example, ITEM-3 (I,J). 


Ol TABLE-REC. 


03 ITEM 


05 
05 
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OCCURS 2 TIMES. 
| TEM=1 PIC X(10). 
ITEM-2 OCCURS 5 TIMES. 
07 ITEM-3 Pic x(4). 
07 ITEM-4 OCCURS 5 TIMES, 

09 =ITEM-5 PIC XX, 

09 ITEM-6 PIC 99, 
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The PICTURE clause describes the general characteristics and editing requirements of an elementary item. 
General Format: 

PICTURE 


IS_ character-string 
PIC 


Syntax Rules: 


mech 


. A PICTURE clause can be specified only at the elementary item level. 

2. A character-string consists of certain allowable combinations of characters in the COBOL74 character 
set used as symbols. The allowable combinations determine the category of the elementary item. 

. The maximum number of characters allowed in the character-string is 30. 

4. The PICTURE clause must appear in every elementary item except those items whose USAGE is de- 

clared as INDEX. 

5. PIC is an abbreviation for PICTURE. 

6. The asterisk, when used as the zero suppression symbol, and the clause BLANK WHEN ZERO may 

not appear in the same entry. 


eo 


General Rules: 


1. There are five categories of data that can be described with a PICTURE clause: alphabetic, numeric, 
alphanumeric, alphanumeric edited, and numeric edited. 
2. To define an item as alphabetic: 


a. The PICTURE character-string can only contain the symbols ’A’, ’B’. | 
b. The item contents, when represented in standard data format, must be any combination of the 26 
letters of the English alphabet and the space from the COBOL74 character set. 


3. To define an item as numeric: 


a. The PICTURE character-string can only contain the symbols °9’, ’P’, ’S’, and ’V’. The number 
of digit positions that can be described by the PICTURE character-string must range from | to 
18 inclusive. 

b. If unsigned, the item contents, when represented in standard data format, must be a combination 
of the numerals ’0’, ’1’, ’2’, ’3’, °4’, ’5’, °6’, ’7’, ’8’, and ’9’; if signed, the item may also contain 
a ’+’, ’-’, or other representation of an operational sign. Refer to the SIGN clause in this section. 


4. To define an item as alphanumeric: 


a. The PICTURE character-string is restricted to certain combinations of the symbols ’A’, °X’, ’9’, 
and the item is treated as if the character-string contained all X’s. A PICTURE character-string 
which contains all A’s or all 9’s does not define an alphanumeric item. 

b. The item contents, when represented in standard data format, are allowable characters. in the 
B 1000 character set. 
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5. To define an item as alphanumeric edited: 


a. The PICTURE character-string is restricted to certain combinations of the following symbols: ’A’, 
ey *Q’, ’B’, 0’" and han 


1) The character-string must contain at least one ’B’ and at least one ’X’ or at least one ’0’ (zero) 
and at least one ’X’ or at least one ’/’ (stroke) and at least one ’X’- 

2) The character-string must contain at least one ’0’ (zero) and at least one ’A’ or at least one 
’? (stroke) and at least one ’A’. 


b. The contents, when represented in standard data format, are allowable characters in the computer 
character set. 


6. To define an item as numeric edited: 


a. The PICTURE character-string is restricted to certain combinations of the symbols ’B’, ’/’, ’P’, 
"V’,?Z’, 70’, 79", 7,7, 7.7, 78?) ?+”, 7, CR’, ’DB’, and the currency symbol ($). The allowable com- 
binations are determined from the order of precedence of symbols and the editing rules. 


1) The number of digit positions that can be represented in the PICTURE character-string must 
range from 1 to 18 inclusive. 

2) The character-string must contain at least one ’0’, ’B’, ’/’, ’7Z’, °**’, °+’,’,’,’.’, °-, “CR’, "DB’, 
or currency symbol. 


b. The contents of the character positions of these symbols that are allowed to represent a digit in 
standard data format must be one of the numerals. 


7. The size of an elementary item, where size means the number of character positions occupied by the 
elementary item in standard data format, is determined by the number of allowable symbols that repre- 
sent character positions. An integer which is enclosed in parentheses following the symbols: ’A’, ’,’, 


x’, 9°, °P’, °Z’, **) °B’, 7’, ’0°, ’+’, ’-’, or ’$’ indicates the number of consecutive occurrences 
of the symbol. The following symbols may appear only once in a given PICTURE: ’S’, ’V’, ’.’, CR’, 
and ’DB’. 


8. The functions of the symbols used to describe an elementary item are explained as follows: 


‘A’ 
Each letter ’A’ in the character-string represents a character position which can contain only a 
letter of the alphabet or a space. 


'pB’ 
Each letter ’B’ in the character-string represents a character position into which the space charac- 
ter will be inserted. 


Pr’ 


Each letter ’P’ indicates an assumed decimal scaling position and is used to specify the location 
of an assumed decimal point when the point is not within the number that appears in the data 
item. The scaling position character ’P’ is not counted in the size of the data item. Scaling position 
characters are counted in determining the maximum number of digit positions (18) in numeric ed- 
ited items or numeric items. The scaling position character P can appear only to the left or right 
as a continuous string of P’s within a PICTURE description; since the scaling position character 
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P implies an assumed decimal point (to the left if ‘P’s are leftmost PICTURE characters and to 
the right if ’P’s are rightmost PICTURE characters), the assumed decimal point symbol ’V’ is re- 
dundant as either the leftmost or rightmost character within such a PICTURE description. The 
character ’P’ and the insertion character ’.’ (period) cannot both occur in the same PICTURE 
character-string. If, in any operation involving conversion of data from one form of internal repre- 
sentation to another, the data item being converted is described with the PICTURE character ’P’, 
each digit position described by a ’P’ is considered to contain the value zero, and the size of the 
data item is considered to include the digit positions so described. 


5? 
The letter ’S’ is used in a character-string to indicate the presence of an operational sign in the 
internal representation of a numeric data item. It must be the first (leftmost) character in the char- 
acter-string and may be used in the PICTURE character-string of any data item whose USAGE 
is DISPLAY or COMPUTATIONAL. The SIGN clause may be used to specify the exact repre- 
sentation and position of the operational sign. Refer to the SIGN clause in this section for addition- 
al information. 


When an operational sign is specified for a DISPLAY data item and a SIGN clause is not 
specified, the sign is maintained and expected in the zone of the most significant (leftmost) charac- 
ter. When the data item is the receiving field in an arithmetic statement and since the native char- 
acter set is EBCDIC, the four zone bits are set to binary 1101 for negative values and to binary 
1100 for positive values. When the data item is used in an algebraic comparison or operation to 
supply an algebraic value, only the most significant zone being a binary 1101 will cause the value 
of the data item to be considered negative. Only the zone values 1100 and 1101 will qualify the 
data item as being NUMERIC if tested by the NUMERIC class condition. For DISPLAY data 
items, the presence or absence of an operational sign has no effect upon the amount of storage 
required to contain the data item. 


When an operational sign is specified for a COMPUTATIONAL data item and a SIGN clause is 
not specified, the sign is maintained and expected as a leading separate four-bit character to the 
left of the most significant digit position. Since the native character set is EBCDIC, the binary 
pattern of the sign character is 1101 for negative values and 1100 for positive values. Like DIS- 
PLAY data items, only these values allow the item to be considered NUMERIC in the class condi- 
tion test. Unlike DISPLAY data items, the specification of an operational sign for COMPUTA- 
TIONAL data items increases by one the number of 4-bit character positions occupied by the data 
item in storage. 


y? 
The letter ’V’ is used in a character-string to indicate the location of the assumed decimal point 
and may only appear once in a character-string. The ’V’ does not represent a character position 
and is not counted in the size of the elementary item. When the assumed decimal point is to the 
right of the rightmost symbol in the string, the ’V’ is redundant. 


*x’ 
Each letter ’X’ in the character-string is used to represent a character position which contains any 
allowable character in the character set. 


wy fe 
Each letter ’Z’ in a character-string may only be used to represent the leftmost leading numeric 
character positions which are replaced by a space character when the contents of that character 
position are zero. Each ’Z’ is counted in the size of the item. 


1108883 6-31 


B 1000 Systems COBOL74 Reference Manual 
Data Division 


PICTURE 


4 g’ 


Each numeral ’9’ in the character-string represents a character position which contains a numeral 
and is counted in the size of the item. 


a 
Each numeral ’0’ in the character-string represents a character position into which the numeral 
zero is inserted. The ’0’ is counted in the size of the item. 


Each stroke ’/’ in the character-string represents a character position into which the stroke charac- 
ter is inserted. The ’/’ is counted in the size of the item. 


Each comma ’,’ in the character-string represents a character position into which the character 
’,’ is inserted. This character position is counted in the size of the item. The insertion character 


73 


, must not be the last character in the PICTURE character-string. 


When the character period ’.’ appears in the character-string it is an editing symbol which repre- 
sents the decimal point for alignment purposes and in addition, represents a character position into 
which the character ’.’ is inserted. The character ’.’ is counted in: the size of the item. For a given 
program the functions of the period and comma are exchanged if the clause DECIMAL-POINT 
IS COMMA is stated in the SPECIAL-NAMES paragraph. In this exchange the rules for the peri- 
od apply to the comma and the rules for the comma apply to the period when appearing in a PIC- 


TURE clause. The insertion character ’.’ must not be the last character in the PICTURE charac- 
ter-string. 


4? ee °CR’ *DB’ 
These symbols are used as editing sign control symbols and when used, represent the character 
position into which the editing sign control symbol will be placed. The symbols are mutually exclu- 


sive in any one character-string and each character used in the symbol is counted in determining 
the size of the data item. 


ao) 


Each asterisk ‘*’ in the character-string represents a leading numeric character position into which 


an asterisk is placed when the contents cf that position are zero. Each ‘*’ is counted in the size 
of the item. 


ve? 

The currency symbol ’$’ in the character-string represents a character position into which a curren- 
cy symbol is placed. The currency symbol in a character-string is represented by either the dollar 
sign ’$’ or by the single character specified in the CURRENCY SIGN clause in the SPECIAL- 
NAMES paragraph. The currency symbol is counted in the size of the item. 
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Editing Rules: 


1. There are two general methods of performing editing in the PICTURE clause, either by insertion or 
by suppression and replacement. The four types of insertion editing available are: 


a. Simple insertion 

b. Special insertion 

c. Fixed insertion 

d. Floating insertion 

There are two types of suppression and replacement editing: 


a. Zero suppression and replacement with spaces 
b. Zero suppression and replacement with asterisks 


2. The type of editing which may be performed upon an item is dependent upon the category to which 
the item belongs. Table 6-1 specifies which type of editing may be performed upon a given category: 


Table 6-1. Editing for Each Item Category 


Category Type of Editing 
Alphabetic Simple insertion ’B’ only 
Numeric None 
Alphanumeric None 
Alphanumeric Edited Simple insertion ’0’, ’B’, and ’/ 
Numeric Edited All, subject to Editing Rule 3 


3. Floating insertion, and editing by zero suppression and replacement, are mutually exclusive in a PIC- 
TURE clause. Only one type of replacement may be used with zero suppression in a PICTURE 
clause. 


4, Simple Insertion Editing. The ’,’ (comma), ’B’ (space), ’0’ (zero), and ’/’ (stroke) are used as the inser- 
tion characters. The insertion characters are counted in the size of the item and represent the position 
in the item into which the character is inserted. 


Any character which is not a defined PICTURE character may be used as a simple insertion charac- 
ter. Precedence rules for these characters and rules for determining category are the same as those 
for the simple insertion character ‘‘0’’. 


5. Special Insertion Editing. The ’.’ (period) is used as the insertion character. In addition to being an 
insertion character it also represents the decimal point for alignment purposes. The insertion character, 
used for the actual decimal point, is counted in the size of the item. The use of the assumed decimal 
point, represented by the symbol ’V’ and the actual decimal point, represented by the insertion char- 
acter, in the same PICTURE character-string is disallowed. The result of special insertion editing is 
the appearance of the insertion character in the item in the same position as shown in the character- 
string. 
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6. Fixed Insertion Editing. The currency symbol and the editing sign control symbols, ’+’, ’-’, ’CR’, 


*DB’, are the insertion characters. Only one currency symbol and only one of the editing sign control 
symbols can be used in a given PICTURE character-string. The symbols ’CR’ or ’DB’ always repre- 
sent two character positions in determining the size of the item and must represent the rightmost char- 
acter positions counted in the size of the item. The symbol ’+’ or ’-’, when used, must be either the 
leftmost or rightmost character position to be counted in the size of the item. The currency symbol 
must be the leftmost character position to be counted in the size of the item except that it can be 
preceded by either a ’+’ or a ’-’ symbol. Fixed insertion editing results in the insertion character occu- 
pying the same character position in the edited item as in the PICTURE character-string. Editing sign 
control symbols produce the results shown in Table 6-2 depending upon the value of the data item. 


Table 6-2. Editing of Sign Control Symbols 


Editing Symbol in Data Item 
PICTURE Character-String Positive or Zero 


+ 

- space 
CR 2 spaces 
DB 2 spaces 


. Floating Insertion Editing. The currency symbol and editing sign control symbols ’+’ or ’-’ are the 


floating insertion characters and are mutually exclusive in a given PICTURE character-string. 


Floating insertion editing is indicated in a PICTURE character-string by using a string of at least two 
of the floating insertion characters. This string of floating insertion characters may contain any of the 
fixed insertion symbols or have fixed insertion characters immediately to the right. These simple inser- 
tion characters are part of the floating string. 


The leftmost character of the floating insertion string represents the leftmost limit of the floating sym- 
bol in the data item. The rightmost character of the floating string represents the rightmost limit of 
the floating symbols in the data item. 


The second floating character from the left represents the leftmost limit of the numeric data that can 


be stored in the data item. Nonzero numeric data may replace all the characters at or to the right 
of this limit. 


In a PICTURE character-string, there are only two ways of representing floating insertion editing. 
One is to represent any or all of the leading numeric character positions on the left of the decimal 
point by the insertion character. The other is to represent all of the numeric character positions in 
the PICTURE character-string by the insertion character. 


If the insertion characters are only to the left of the decimal point in the PICTURE character-string, 
the result is that a single floating insertion character is placed into the character position immediately 
preceding either the decimal point or the first nonzero digit in the data represented by the insertion 
symbol string, whichever is farther to the left. in the PICTURE character-string. The character posi- 
tions preceding the insertion character are replaced with spaces. 
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If all numeric character positions in the PICTURE character-string are represented by the insertion char- 
acter, the result depends upon the value of the data. If the value is zero, the entire data item will contain 
spaces. If the value is not zero, the result is the same as when the insertion character is only to the 
left of the decimal point. 


To avoid truncation, the minimum size of the PICTURE character-string for the receiving data item 
must be the number of characters in the sending data item, plus the number of nonfloating insertion 
characters being edited into the receiving data item, plus one for the floating insertion character. 


8. Zero Suppression Editing. The suppression of leading zeroes in numeric character positions is indicated 
by the use of the alphabetic character ’Z’ or the character ’*’ (asterisk) as suppression symbols in a PIC- 
TURE character-string. These symbols are mutually exclusive in a given PICTURE character-string. Each 
suppression symbol is counted in determining the size of the item. If ’Z’ is used the replacement charac- 
ter is the space, and if the asterisk is used the replacement character will be ’*’. 


Zero suppression and replacement is indicated in a PICTURE character-string by using a string of one 
or more of the allowable symbols to represent leading numeric character positions which are to be re- 
placed when the associated character position in the data contains a zero. Any of the simple insertion 
characters embedded in the string of symbols or to the immediate right of this string are part of the 
string. 

In a PICTURE character-string, there are only two ways of representing zero suppression. One is to 
represent any or all of the leading numeric character positions to the left of the decimal point by sup- 
pression symbols. The other is to represent all of the numeric character positions in the PICTURE char- 
acter-string by suppression symbols. 


If the suppression symbols appear only to the left of the decimal point, any leading zero in the data 
which corresponds to a symbol in the string is replaced by the replacement character. Suppression termi- 
nates at the first nonzero digit in the data represented by the suppression symbol string or at the decimal 
point, whichever is encountered first. 


If all numeric character positions in the PICTURE character-string are represented by suppression sym- 
bols and the value of the data is not zero, the result is the same as if the suppression characters were 
only to the left of the decimal point. If the value is zero and the suppression symbol is ’Z’, the entire 
data item will be spaces. If the value is zero and the suppression symbol ’*’, the data item will be all 
asterisks except for the actual decimal point. 

The leftmost suppression symbol (’Z’ or ’*’) in the PICTURE character-string can only be preceded by 
the currency symbol or the sign symbols (’+’ or ’-’). 


9. The symbols ’+’, ’-’, ’*’, ’Z’, and ’$’, when used as floating replacement characters, are mutually exclu- 
sive within a given character-string. 


Precedence Rules 


Figure 6-4 shows the order of precedence when using characters as symbols in a character-string. An ’X’ at an 
intersection indicates that the symbol(s) at the top of the column may precede, in a given character-string, the 
symbol(s) at the left of the row. Arguments appearing in braces indicate that the symbols are mutually exclusive. 
The currency symbol is indicated by the symbol ’cs’. 


At least one of the symbols ’A’, ’X’, ’Z’, ’9’ or ’*’, or at least two of the symbols ’+’, ’-’ or ’cs’ must be 
present in a PICTURE string. 
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A 
x 
X 
x 


Non-Floating 
insertion Symbols 


x 


PEE CCPC ECE 


x 


insertion Symbels 


- 


x 
Xx 


Nonfloating insertion symbols °+° and °-°. floating insertion symbols °Z*, ’*?, °+’, *-’, and ‘cs’, and the other 
symbol ’P’ appear twice in the PICTURE character precedence chart. Figure 6-4. The leftmost column and 
uppermost row for each symbol represent use on the left of the decimal point position. The second appearance 
of the symbol in the chart represents use to the right of the decimal point position. 
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Other Symbols 


12333 


Figure 6-4. PICTURE Character Precedence Chart 


B 1000 Systems COBOL74 Reference Manual 
Data Division 


PICTURE 
Examples: 
The following Table 6-3 demonstrates the editing function of the PICTURE Clause. 
Table 6-3. Editing Application of the PICTURE Clause 
Source Area Receiving Area 
Editing 

Picture Data Picture Edited Data 
9(5) 12345 $ZZ,ZZ9.99 ~ $12,345.00 
v9(5) 12345 $$$,$$9.99 $0.12 
v9(5) 12345 $ZZ,ZZ9.99 S 0.12 
9(5) 00000 $$$,$$9.99 90.00 
9 (3) v99 12345 $ZZ,2ZZ9.99 $ 123.45 
9(5) 00000 $$$,5$$.$$ 

9(5) 01234 Sv kx*G 99 $*1,234.00 
9 (5) 00000 S vx y BRK KK RARER | eck 
9(5) 00123 Se , HQ 99 $***123.00 
9(3) V99 00012 $2ZZ,ZZ9.99 S 0.12 
9(3) v99 12345 $$$,$$9.99 $123.45 
9(3) v99 00001 $ZZ,ZZZ.99 $ 01 
9(5) 12345 9995999399 $12,345.00 
9(5) 00000 $ZZ,ZZZ.2Z2Z 

9(3) v99 00001 $$5495$.5$ $.01 
$9(5) (+) 12345 ZZZZ9.99+ 12345. 00+ 
$9(5) (-) 00123 =-99999.99 -00123.00 
9(3) V99 12345 999.00 123.00 
$9(5) (-) 12345 Z2ZZZ9.99- 12345 .00- 
$9(5) (+) 12345 ZZZZ9.99- 12345.00 
9(5) 12345 BBB99.99 45.00 
$9(5)V (-) 12345 -ZZZ29.99 -12345.00 
$9(5) (-) 12345 S$S$$S$$.99CR $12345.00CR 

$99V9 (3) (-) 12345 | wemewe 399 -12.34 

$9(5) (+) 12345 $$$$$$.99CR $12345.00 
9(3) v99 12345 999. BB 123. 
9(5) 12345 00999. 00 00345.00 
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REDEFINES 


The REDEFINES clause allows the same computer storage area to be described by different data description 


entries. 


General Format: 


| level-number data-name-1; REDEFINES data-name-2 | 


Syntax 


NOTE 
Level-number, data-name-! and the semicolon are shown in the general format to 
improve clarity. Level-number and data-name-! are not part of the REDEFINES 
clause. 


Rules: 


. The REDEFINES clause, when specified, must immediately follow data-name-1. 
. The level-numbers of data-name-! and data-name-2 must be identical, but must not be 66 or 88. 
. This clause must not be used in level 01 entries in the FILE SECTION. Refer to the DATA REC- 


ORDS clause, General Rule 2, in this section. 


. The REDEFINES clause must not be used in level 01 entries in the COMMUNICATION SECTION. 
. The data description entry for data-name-2 cannot contain a REDEFINES clause. Data-name-2 may 


be subordinate to an entry which contains a REDEFINES clause. The data description entry for data- 
name-2 cannot contain an OCCURS clause. However, data-name-2 may be subordinate to an item 
whose data description entry contains an OCCURS clause. In this case, the reference to data-name- 
2 in the REDEFINES clause may not be subscripted or indexed. Neither the original definition nor 
the redefinition can include an item whose size is variable as defined in the OCCURS clause. Refer 
to the OCCURS clause in this section. 


. No entry having a level-number numerically lower than the level-number of data-name-2 and data- 


name-1 may occur between the data description entries of data-name-2 and data-name-1. 


General Rules: 


1. 


2. 
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Redefinition starts at data-name-2 and ends when a level-number less than or equal to that of data- 
name-2 is encountered. 

The REDEFINES clause specifies the redefinition of a storage area, not of the data items occupying 
the area. Therefore, the usage of data-name-1 need not be the same as the usage of data-name-2, -ex- 
cept that DISPLAY or group data items may not redefine elementary COMPUTATIONAL or INDEX 
data items which do not begin on a byte boundary. When redefinition occurs at other than the 01 
level, the amount of storage allocated for data-name-2 must be the same as the amount of storage 
implied by the declared size and usage of data-name-1, with the following. exceptions: 


a. A DISPLAY or group data item may redefine an elementary COMPUTATIONAL data item that 
begins, but does not end, on a byte boundary if the difference in size can be accounted for by 
the generation of a 4-bit filler so that the redefining item ends on a byte boundary. 

b. A DISPLAY or group data item may be redefined by an elementary COMPUTATIONAL data item 
even though the actual size (including sign position, if described) is one 4-bit character less than 
the number of 4-bit characters in the storage area. The redefining item is aligned to begin on a 
byte boundary and end at the middle of the last byte of storage. 
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3. Multiple redefinitions of the same character positions are permitted. The entries giving the new de- 
scriptions of the character positions must follow the entries defining the area being redefined, without 
intervening entries that define new character positions. Multiple redefinitions of the same character 
positions must all use the data-name of the entry that originally defines the area. 

4. The entries giving the new description of the character positions must not contain any VALUE 
clauses, except in condition-name entries. 

5. Multiple 01 level entries subordinate to any given level indicator represent implicit redefinitions of the 
same area. 


Example: 


The following example illustrates the use of the REDEFINES clause. 


Ol WHOLE~ITEM, 


03 PART-ONE PIC x(40). 
03 PART-TWO REDEFINES PART=ONE, 
05 A PIC X(20). 
05 B PIC X(20). 


03 PART-THREE REDEFINES PART-ONE PIC X(40). 
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RENAMES 


The RENAMES clause permits alternative. possibly overlapping, groupings of elementary items. 


General Format: 


Syntax 
1. 


2 


HAN 


General 


I. 
2 


6-40 


ee Se A A A A thee, et i i EEN 


THROUGH 


66 data- -1; RENAMES data-name-2 
ata-name S data-name en 


data-name-3 


i rN Ns 


NOTE 
Level-number 66, data-name-1, and the semicolon are shown in the general format 
to improve clarity. Level-number and data-name-! are not part of the RENAMES 
clause. 


Rules: 


All RENAMES entries referring to data items within a given logical record must immediately follow 
the last data description entry of the associated record description entry. 

Data-name-2 and data-name-3 must be names of elementary items or groups of elementary items in 
the same logical record, and cannot be the same data-name. A 66 level entry cannot rename another 
66 level entry nor can it rename a 77, 88, or O01 level entry. 


. Data-name-1! cannot be used as a qualifier, and can only be qualified by the names of the associated 


level 01, FD, or SD entries. Neither data-name-2 nor data-name-3 may have an OCCURS clause in 
the data description entry nor be subordinate to an item that has an OCCURS clause in the data de- 
scription entry. Refer to the OCCURS clause in this section. 


. The beginning of the area described by data-name-3 must not be to the left of the beginning of the 


area described by data-name-2. The end of the area described by data-name-3 must be to the right 


of the end of the area described by data-name-2. Data-name-3, therefore, cannot be subordinate to 
data-name-2. 


. Data-name-2 and data-name-3 may be qualified. 
. The words THRU and THROUGH are equivalent. 
. None of the items within the range, including data-name-2 and data-name-3, if specified, can be an 


item whose size is variable as defined in the OCCURS clause. 


Rules: 


One or more RENAMES entries can be written for a logical record. 

When data-name-3 is specified, data-name-! is a group item which includes all elementary items start- 
ing with data-name-2 (if data-name-2 is an elementary item) or the first elementary item in data-name- 
2 (if data-name-2 is a group item), and concluding with data-name-3 (if data-name-3 is an elementary 
item) or the last elementary item in data-name-3 (if data-name-3 is a group item). 


When data-name-3 is specified: If data-name-2 is an elementary COMPUTATIONAL or INDEX data 
item, it must be positioned to begin at an 8-bit character boundary; if data-name-3 is an elementary 
COMPUTATIONAL or INDEX data item, if must be positioned to end at the end of an 8-bit charac- 
ter boundary. 


B 1000 Systems COBOL74 Reference Manual 
Data Division 


RENAMES 


3. When data-name-3 is not specified, data-name-2 can be either a group or an elementary item. When 
data-name-2 is a group item, data-name-I is treated as a group item, and when data-name-2 is an 
elementary item, data-name-1 is treated as an elementary item. 


Data-name-1 assumes all the characteristics of data-name-2 as determined from the data description 
of data-name-2, including usage, justification, synchronization, editing requirements, and so on. 


Examples: 
The following are examples of the RENAMES clause. 


01 PART-ONE,. 
03 SUB-PART-ONE. 


05 SP-1 PIC X. 

05 SP-2 PIC x(5). 
05 SP-3 PIC XXX. 
05 SP-4 PIC X. 

03 SUB-PART-TWO. 

05 SP2-1 PIC XX. 

05 SP2-2 PIC x(10). 
05 SP2-3 PIC XXX. 


66 SUB-PT-THREE RENAMES SUB-PART-ONE. 

66 SUB=-PT-FOUR RENAMES SUB-PART-ONE. 

66 SUB-PT-5 RENAMES SP-2 THRU SP-4, 

66 SUB-PT-6 RENAMES SP-3 THROUGH SP2-2. 

66 SUB-PT-7 RENAMES SP-] THRU SUB=PART-TWO. 
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The SIGN clause specifies the position and the mode of representation of the operational sign when necessary 
to describe these properties explicitly. 


General Format: 


oe eee a ence rem nN RR RR EE nnn neat minim nmr rattle Re hE AREA ET SRE ET RT AA ce AA EE SE ERO SN TY MES 


[SIGN IS ] | LLABING [ SEPARATE CHARACTER ] 
TRAILING 


Syntax Rules: 


1. The SIGN clause may be specified only for a numeric data description entry whose PICTURE con- 
tains the character ’S’, or a group item containing at least one such numeric data description entry. 

2. The numeric data description entries to which the SIGN clause applies must be described as usage 
DISPLAY or COMPUTATIONAL. 

3. At most, one SIGN clause may apply to any given numeric data description entry. . 

4. If the CODE-SET clause is specified, any signed numeric data description entries associated with that 
file description entry must be described with the SIGN IS SEPARATE clause. 


General Rules: 


1. The optional SIGN clause, if present, specifies the position and the mode of representation of the op- 
erational sign for the numeric data description entry to which it applies, or for each numeric data de- 
scription entry subordinate to the group to which it applies. The SIGN clause applies only to numeric 
data description entries whose PICTURE contains the character ’S’; the ’S’ indicates the presence 
of, but neither the representation nor, necessarily, the position of the operational sign. 

2. A numeric data description entry whose PICTURE contains the character ’S’, but to which no option- 
al SIGN clause applies, has an operational sign which is positioned and represented according to the 
standard default position and representation of operational signs. Refer to the PICTURE clause, Gen- 
eral Rule 8 (the ’S’ symbol), in this section. 

3. If a SIGN clause, without a SEPARATE CHARACTER phrase, applies to a numeric data description 
entry, then: 


a. If the usage of the data item is DISPLAY, the operational sign is maintained and expected as a 
binary 1100 or 1101 in the zone of the LEADING or TRAILING character, and will not cause 
additional storage to be allocated for the data item. 

If the usage of the data item is COMPUTATIONAL, the operational sign is maintained and ex- 
pected as a binary 1100 or 1101 LEADING or TRAILING character, increasing by one 4-bit char- 
acter the amount of storage allocated for the data item above that which would be allocated for 
an unsigned COMPUTATIONAL data item. The presence or absence of the SEPARATE CHAR- 
ACTER phrase has no effect upon the position or representation of the operational sign for COM- 
PUTATIONAL data items. 


b. 
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If a SIGN clause with a SEPARATE CHARACTER phrase applies to a numeric data description en- 
try, then: 


a. If the usage of the data item is DISPLAY, the operational sign is maintained and expected as a 
LEADING or TRAILING character separate from, and in addition to, the numeric character posi- 
tions. The operational sign for negative values is the character ‘‘—’’ and for positive values the 
character ‘‘+’’. 

b. If the usage of the data item is COMPUTATIONAL, the rules listed above in General Rule 3b 
apply. 


. Every numeric data description entry whose PICTURE contains the character ’S’ is a signed numeric 


data description entry. If a SIGN clause applies to such an entry and conversion is necessary for pur- 
poses of computation or comparisons, conversion takes place automatically. 


Examples: 


The following are examples of the SIGN clause. 


1108883 


WORKING=STORAGE SECTION, 


77 NUMBI PIC $9(11) VALUE ZEROES SIGN IS TRAILING. 
77 NUMB2 PIC S9(6) VALUE ZEROES SIGN IS LEADING. 


Ol GROUP-ITEM SIGN IS LEADING. 
03. ITEM=] Pic X(15). 
03. ITEM-2 PIC $9(4) COMP. 
03 ITEM=3 PIC xX(25). 
03. =ITEM-4 PIC $9999. 


6-43 


B 1000 Systems COBOL74 Reference Manual 
Data Division 


SYNCHRONIZED 


SYNCHRONIZED 


The SYNCHRONIZED clause specifies the alignment of an elementary item on the natural boundaries of the 
computer memory. 


General Format: 


{ SYNCHRONIZED | [ LEET. | 
SYNC RIGHT 


Syntax Rules: 


1. This clause may only appear with an elementary item. 
2. SYNC is an abbreviation for SYNCHRONIZED. 


General Rules: 
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1. This clause specifies that the subject data item is to be aligned in the computer to a byte boundary. 


If the previous data item did not end on a byte boundary an implicit 4-bit FILLER is generated. This 
unused filler digit is included in: 


a. The size of any group item(s) to which the elementary item belongs. 
b. Any redefinition of the previous data item when it is the object of a REDEFINES clause. Refer 
to the REDEFINES and the USAGE clauses in this section. 


2. Neither RIGHT nor LEFT following SYNCHRONIZED has effect on the positioning of the data item. 


RIGHT and LEFT are handled as comment entries. 


3. Whenever a SYNCHRONIZED item is referenced in the source program, the original size of the item, 


as shown in the PICTURE clause, is used in determining any action that depends on size, such as 
justification, truncation, or overflow. 


4, If the data description of an item contains the SYNCHRONIZED clause and an operational sign, the 


sign of the item appears in the normal operational sign position. 


5. When the SYNCHRONIZED clause is specified in a data description entry of a.data item that also 


contains an OCCURS clause, or in a data description entry of a data item subordinate to a data de- 
scription entry that contains an OCCURS clause, then: 


a. Each occurrence of the data item is SYNCHRONIZED. 


b. Any implicit FILLER generated for other data items within that same table are generated for each 
occurrence of those data items. 
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USAGE 
The USAGE clause specifies the format of a data item in the computer storage. 


General Format: 


( COMPUTATIONAL 
[USAGE IS] ) COMP 

) DISPLAY 
| INDEX 


eee eee 


Syntax Rules: 


1. The PICTURE character-string of a COMPUTATIONAL item can contain only ’9’s, the operational 
sign character ’S’, the implied decimal point character ’V’, and one or more ’P’s. Refer to the PIC- 
TURE clause in this section. 

2. COMP is an abbreviation for COMPUTATIONAL. 

3. The USAGE clause may be written in any data description entry with a level number other than 66 
or 88. 

4. If the USAGE is written in the data description entry for a group item, it may also be written in the 
data description entry for any subordinate elementary item or group item, but the same USAGE must 
be specified by both entries. Items of different USAGE may appear in the same record. 

5. An index data item can be referenced explicitly only ina SEARCH or SET statement, a relation con- 
dition, the USING phrase of a PROCEDURE DIVISION header, or the USING phrase of a CALL 
statement. 

6. The SYNCHRONIZED, JUSTIFIED, PICTURE, VALUE, and BLANK WHEN ZERO clauses can- 
not be used to describe group or elementary items described with the USAGE IS INDEX clause. 


General Rules: 


— 


. If the USAGE clause is written at a group level, it applies to each elementary item in the group. 
2. This clause specifies the manner in which a data item is represented in the storage of a computer. 
It does not affect the use of the data item, although the specifications for some statements in the PRO- 
CEDURE DIVISION may restrict the USAGE clause of the data item. 


DISPLAY data items are represented internally as contiguous 8-bit characters represented in the na- 
tive character set, EBCDIC. 


Elementary COMPUTATIONAL data items are represented internally as contiguous 4-bit characters 
or digits. 


3. A COMPUTATIONAL item is capable of representing a value to be used in computations and must 
be numeric. If a group item is described as COMPUTATIONAL, the elementary items in the group 
are COMPUTATIONAL. The group item is not COMPUTATIONAL (cannot be used in computa- 
tions). 


The group item is considered to be a group data item whose class is alphanumeric and whose usage 
is DISPLAY and may be referenced any place in the syntax acceptable for such an item. The size 
of the group item is considered to be in terms of DISPLAY characters aligned according to the rules 
for DISPLAY, one character for every two 4-bit characters or digits that form a part of it. 
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. The USAGE IS DISPLAY clause indicates that the format of the data is a standard data format. 
. If the USAGE clause is not specified for an elementary item, or for any group to which the item be- 


longs, the usage is implicitly DISPLAY. 


. Every occurrence of a DISPLAY data item begins and ends on a byte boundary. Within a record de- 


scription, the declaration of a DISPLAY data item immediately following a COMPUTATIONAL or 
INDEX data item that does not end on a byte boundary causes an automatic generation of a 4-bit 
filler between the two items. This filler area between the two data items is not included in the size 
of either item, but is included in the size of all group items to which the two items are subordinate. 
Similarly, if the last item declared within a group item at the next lowest hierarchical level is a COM- 
PUTATIONAL or INDEX data item that does not end on a byte boundary, an automatic generation 
of a 4-bit filler occurs. This filler is included in the size of the group item. 


. An elementary item described with the USAGE IS INDEX clause is called an index data item and 


contains a value which must correspond to an occurrence number of a table elemerit. The elementary 
item cannot be a conditional variable. If a group item is described with the USAGE IS INDEX clause, 
the elementary items in the group are all index data items. The group is not an index data item and 
cannot be used in the SEARCH or SET statement. 


The group item is considered to be a group data item whose class is alphanumeric and whose usage 
is DISPLAY and may be referenced any place in the syntax acceptable for such an item. The size 
of the group item is considered to be in terms of DISPLAY characters, four characters for each subor- 
dinate index data item. 


. An index data item can be part of a group which is referred to in a MOVE or input-output statement, 


in which case no conversion takes place. 


. An index data item may contain a signed value. An index data item occupies the same space and 


has the same alignment as an item declared PICTURE $9(7) USAGE IS COMPUTATIONAL. 
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The VALUE clause defines the value of constants, the initial value of working-storage items, the initial value 
of data items in the COMMUNICATION SECTION, and the values associated with a condition-name. 


General Format: 


Format 1: 
| VALUE IS literal | 
Format 2: 


VALUE IS THROUGH ] 
literal-1 literal-2 


VALUES ARE j THRU 


f THROUGH 
, literal-3 | literal-4 
THRU 


Syntax Rules: 


. The words THRU and THROUGH are equivalent. 

2. The VALUE clause cannot be stated for any item whose size is variable. Refer to the OCCURS 
clause in this section. 

3. A signed numeric literal must have an associated signed numeric PICTURE character-string. 

4. All numeric literals in a VALUE clause of an item must have a value which is within the range of 

values indicated by the PICTURE clause, and must not have a value which would require truncation 

of nonzero digits. Nonnumeric literals in a VALUE clause of an item must not exceed the size indi- 

cated by the PICTURE clause. 


— 


General Rules: 


1. The VALUE clause must not conflict with other clauses in the data description of the item or in the 
data description within the hierarchy of the item. The following rules apply: 


a. If the category of the item is numeric, all literals in the VALUE clause must be numeric. If the 
literal defines the value of a working-storage item, the literal is aligned in the data item according 
to the standard alignment rules. Refer to Standard Alignment Rules in Section 2. 

b. If the category of the item is alphabetic, alphanumeric, alphanumeric edited or numeric edited, all 
literals in the VALUE clause must be nonnumeric literals. The literal is aligned in the data item 
as if the data item had been described as alphanumeric. (Refer to Standard Alignment Rules in 
Section 2.) Editing characters in the PICTURE clause are included in determining the size of the 
data item (refer to the PICTURE clause in this section) but have no effect on initialization of the 
data item. Therefore, the VALUE for an edited item is presented in an edited form. 

c. Initialization takes place independent of any BLANK WHEN ZERO or JUSTIFIED clause that 
may be specified. 


2. A figurative constant may be substituted in both Format | and Format 2 wherever a literal is specified. 
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CONDITION-NAME RULES 


1. In a condition-name entry, the VALUE clause is required. The VALUE clause and the condition- 


name are the only two clauses permitted in the entry. The characteristics of a condition-name are imp- 
licitly those of the conditional variable. 


2. Format 2 can only be used in connection with condition-names. Refer to Condition-Name in Section 


2. Wherever the THRU phrase is used, literal must be less than literal-2, literal-3 less than literal- 
4, and so forth. 


DATA DESCRIPTION ENTRIES OTHER THAN CONDITION-NAMES 
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. Rules governing the use of the VALUE clause differ with the respective sections of the DATA DIVI- 


SION: 


a. In the FILE SECTION, the VALUE clause may be used only in condition-name entries. 

b. In the WORKING-STORAGE SECTION and the COMMUNICATION SECTION, the VALUE 
clause must be used in condition-name entries. The VALUE clause may also be used to specify 
the initial value of any other data item, in which case the clause causes the item to assume the 
specified value at the start of the object program. If the VALUE clause is not used in an item 
description, the initial value is undefined. 

c. In the LINKAGE SECTION, the VALUE clause may be used only in condition-name entries. 


. The VALUE clause must not be stated in a data description entry that contains an OCCURS clause. 


or in an entry that is subordinate to an entry containing an OCCURS clause. This rule does not apply 
to condition-name entries. Refer to the OCCURS clause in this section. 


. The VALUE clause must not be stated in a data description entry that contains a REDEFINES 


clause, or in an entry that is subordinate to an entry containing a REDEFINES clause. This rule does 
not apply to condition-name entries. 


. If the VALUE clause is used in an entry at the group level, the literal must be a figurative constant 


or a nonnumeric literal, and the group area is initialized without consideration for the individual 


elementary or group items contained within this group. The VALUE clause cannot be stated at the 
subordinate levels within this group. 


. The VALUE clause must not be written for a group containing items for which USAGE (other than 


USAGE IS DISPLAY) is specified either explicitly or implicitly. 
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WORKING-STORAGE SECTION 


The WORKING-STORAGE SECTION is optional and is that part of the DATA DIVISION set aside for inter- 
mediate processing of data. The difference between the WORKING-STORAGE and FILE SECTIONS is that 
the former deals with data that is not associated with an input or output file. All clauses which are used in 
normal input or output record descriptions can be used in a WORKING-STORAGE record description. 


WORKING-STORAGE STRUCTURE 


Whereas the FILE SECTION is composed of file description (FD or SD) entries and associated record descrip- 
tion entries, the WORKING-STORAGE SECTION is composed only of record description entries and noncon- 
tiguous items. The WORKING-STORAGE SECTION begins with a section-header and a period, followed by 
data description entries for noncontiguous WORKING-STORAGE items, and/or record description entries for 
WORKING-STORAGE records. 


Each WORKING-STORAGE SECTION record name and noncontiguous item name must be unique since it 
cannot be qualified. Subordinate data-names need not be unique if they can be made unique by qualification. 


General Format: 


WORKING-STORAGE SECTION. 
77 data-name-1 . 
88  condition-name-! 


77 data-name-n 
01 data-name-2 
02 data-name-3 


66 data-name-m RENAMES data-name-3 
01 data-name-4 
02 data-name-5 
03 data-name-n 
88 condition-name-2 


NONCONTIGUOUS WORKING-STORAGE 


Items in WORKING-STORAGE which have no hierarchical relationship to one another need not be grouped 
into records, provided they do not need to be further subdivided. These items are classified and defined as 
noncontiguous elementary items. Each of these items is defined in a separate data description entry which 
begins with the special level-number 77. . 


The following record description clauses are required in each entry: 


Level-number 77 
Data-name — 
The PICTURE clause or the USAGE IS INDEX clause. 
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The OCCURS clause is riot meaningful on a 77 level item and causes an error at compilation time if used. 
Other data description clauses are optional and can be used to complete the description of the item if neces- 
sary. 


WORKING-STORAGE RECORDS 
Data elements and constants in WORKING-STORAGE which have a definite hierarchic relationship to one 
another must be grouped into records according to the rules for the formation of record descriptions. All 


clauses which are used in normal input or output record descriptions can be used in a WORKING-STORAGE 
description, including REDEFINES, OCCURS, and COPY. 


INITIAL VALUES 


The initial value of any item in the WORKING-STORAGE SECTION except an index data item is specified 
by using the VALUE clause with the data item. The initial value of any index data item is unpredictable. 


CONDITION-NAMES 


Any WORKING-STORAGE item may be a conditional variable with which one or more condition-names are 
associated. Entries defining condition-names must immediately follow the conditional variable entry. Both the 
conditional variable entry and the associated condition-name entries may contain VALUE clauses. 


CODING THE WORKING-STORAGE SECTION 


Figure 6-5 illustrates the coding of the WORKING-STORAGE 
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WORKING-STORAGE SECTION 


Burroughs COBOL CODING FORM 
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LINKAGE SECTION 


The LINKAGE SECTION is used for Inter-Prograra Communication to provide a facility by which a program 
can communicate with one or more programs. This communication is provided by the ability to transfer control 


from one program to another within a run unit, and the ability for both programs to have access to the same 
data items. 


The LINKAGE SECTION in an optional part of the DATA DIVISION. It is used when the object program 
is to be a called program and the CALL statement in the calling program contains a USING phrase. 


The LINKAGE SECTION is used for describing data that is available through the calling program but is to 
be referred to in both the calling and the called programs. No space is allocated in the program for data items 
referenced by data-names in the LINKAGE SECTION of that program. PROCEDURE DIVISION references 
to these data items are resolved at object time by equating the reference in the called program to the location 
used in the calling program. In the case of index-names, no such correspondence is established. Index-names 
in the called and calling programs always refer to separate indices. 


LINKAGE SECTION STRUCTURE 


The structure of the LINKAGE SECTION is the same as that previously described for the WORKING-STOR- 
AGE SECTION. It begins with a section header, followed by data description entries for noncontiguous data 


items and/or record description entries. But, each item name must be unique within the called program since 
it cannot be qualified. 


Data items defined in the LINKAGE SECTION of the called program may be referenced within the PROCE- 
DURE DIVISION of the called program only if specified as operands of the USING phrase of the PROCE- 
DURE DIVISION header or are subordinate to such operands, and the object program is under the control 
of a CALL statement that specifies a USING phrase. Condition-names and/or index-names associated with 
such data-names and/or subordinate data items, may also be referenced in the PROCEDURE DIVISION. 


General Format: 


A SN Ser RA RE LY TE tr Eee ee energie 


LINKAGE SECTION. 
77 data-name-] 
88 condition-narne-|! 


a datasamesn 
01 data-name-2 
O02 data-name-3 


66 data-name-m RENAMES data-name-3 
01 data-name-4 
02 data-name-5 
03 data-name-n 
88  condition-name-2 
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NONCONTIGUOUS LINKAGE STORAGE 


Items in the LINKAGE SECTION that have no hierarchic relationship to one another need not be grouped 
into records and are classified and defined as noncontiguous elementary items. Each of these data items is 
defined in a separate data description entry which begins with the special level-number 77. 
The following data clauses are required in each data description entry: 

Level-number 77 

Data-name 

The PICTURE clause or the USAGE IS INDEX clause. 


Other data description clauses are optional and can be used to complete the description of the item if neces- 
sary. 


LINKAGE RECORDS 
Data elements in the LINKAGE SECTION which have a definite hierarchic relationship to one another must 


be grouped into records according to the rules for formation of record descriptions. Any clause which is used 
in an input or output record description can be used in a LINKAGE SECTION. 


INITIAL VALUES 


The VALUE clause must not be specified in the LINKAGE SECTION except in condition-name entries (level 
88). 


CODING THE LINKAGE SECTION 


Figure 6-6 illustrates the coding of the LINKAGE SECTION. 
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LINKAGE SECTION 


Examples: 


The following two programs, IPCCALL and STATE, are sample programs using Inter-Program Communication 
(IPC). The calling program, IPCCALL, through the use of the CALL statement, passes a data item to STATE. 
The called program, STATE, has a LINKAGE SECTION, and the USING phrase specified in the PROCE- 
DURE DIVISION heading in which to accept the shared data. When the program STATE has completed and 
executes the EXIT PROGRAM statement, control and the new value of the data item is returned to IPCCALL. 


BURROUGHS 81800/81700 COBOL74 COMPILER» MARK IX-0-1 €05/07/80 16:27) 
IPCCALL 
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000200 IDENTIFICATION OFVISTON. 

000300 PROGRAM-T0. IPCCALL~ 

000400 AUTHOR. MAURA ALFORD. 

000500 DATEWWRITTEN. 04/28/80. 

000600 DATE~COMPILED. 1980 JUNE 27 11:04 
000700 SECURITY. NONE. 

000800 REMARKS. I CALL A PROGRAM CALLED STATE. 
000900 ENVIRONMENT DIVISION. 

001000 CONFIGURATION SECTION. 

001100 SOURCE“COMPUTER. 81985. 

001200 OBJECT“COMPUTER. 81985. 

001600 DATA DIVISION. 

002200 WORKING@“STORAGE SECTION. 

002300 

002400 01 U-STATE-AREA. 

002500 05 U-STATE. 

002510 10 Un-NUMERICHSTATE PIC 95.~ 
0025290 05 UnSTATE“NAME PIC X(20). 
002530 05 UnrSTATESRETURN“STATUS PIC 9. 
002€00 

002700 PROCEDURE DIVISION. 

002600 BEGIN. 

002900 MOVE "AL" TO U-STATE. 

003000 CALL "STATE" USING U-STATE“AREA. 
003100 DISPLAY “"U-STATE“AREA = * USTATE-AREA) 
003900 MOVE “CT TO UWSTATE. 

004000 CALL “"STATE* USING UWSTATE-AREA. 
004100 DISPLAY "USTATE“AREA = * UmSTATE“AREA}™ 
004200 CANCEL “*STATE™. 

004400 STOP RUN. 
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fos 
a BURROUGHS B81800/81700 COBOL74 COMPILER» MARK IX.0.1 (05/07/80 16:27) 


004810 


STATE 
090100 IDENTIFICATION CIVISTION. 
000200 PROGRAM-ID. STATE. 
000300 AUTHOR. Tid. 
000310 REMARKS. I AM CALLED BY A PROGRAM NAMED IPCCALL. 
000400 ENVIRCNMENT DIVISTON. 
000500 CONFIGURATION SECTION. 
000€00 SOURCE“COMPUTER. 871855. 
000700 OBJECT~COMPUTER.j 87-1855. 
000800 DATA OIVISION. 
000900 WORKING“STORAGE SECTION. 
001000 OL NUMBER“OF“STATE“COCDES~IN-TABLE PIC 9(€2) COMP VALUE 10. 
001100 01 WS“STATE-ASBREV=~ AND“NAMES. 
001200 O03 STATE“O1 PIC X€23) VALUE * AL“ ALABAMA “. 
001309 O03 STATE"O2 PIC X€23) VALUE “AK~ALASKA *. 
001400 O03 STATE"O03 PIC X€23) VALUE “AZ“ARIZONA *e 
001500 O03 STATE"O4 PIC X€23) VALUE “AR“ARKANSAS "e 
001600 O3 STATE“05 PIC X€23) VALUE “CA~CALIFORNIA "s 
00171706 G35 STATE<G6 PIC K(235)9 VALUE =CO-COLORADO *e 
001800 03 STATE-O7 PIC X€23) VALUE “CI-CONNECTICUT ". 
001900 03 STATE“08 PIC XC€23) VALUE “DE-DELAWARE *. 
002000 03 STATE“09 PIC X(23) VALUE *"DC“DLISTRICT CF COLUMBIA®. 
002100 O03 STATE-10 PIC X€23) VALUE SFL-FUCRIDA ". 
002110 
003700 O1 WS-STATE-TABLE REDEFINES WS-STATE-ABBREV~AND-NAMES. 
003800 O03 WS-STATE OCCURS 10 TIMES 
00395900 INDEXED BY WS“STATE“NUMBER. 
004000 05S WS“STATE-ABBREVIATION PIC X(2). 
004109 05 FILLER PIC XC€1). 
004200 OS WS~STATE“NAME PIC x€20). 
004210 
004300 LINKAGE SECTION. 
004400 Ol U-STATE~AREA. 
004500 05 Un-STATE. 
004609 10 U-NUPERIC“STATE PIC 9(2). 
004700 05 U-STATE“NAME PIC X(€20). 
004800 O05 UnSTATE“RETURN-STATUS PIC 9(1). 
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004900 
005000 
005100 
005200 
005300 
005400 
005500 
005600 
005700 
005800 
005900 
006000 
006100 
006200 
006300 
006400 
006500 
006609 
006700 
006800 
006909 
007000 
0071090 
007200 
007300 
0074090 
007500 
007600 
007700 
007800 
007900 
068000 
006100 
008209 
008300 
008400 


PROCECURE DIVISION USING U-STATE-AREA. 


GOO~ENTRY. 
MOVE ZERS TO UrSTATE“RETURNW-STATUS. 
MOVE SPACES TQ U-STATE“NAME. 
IF UMSTATE IS NUMERIC 
PERFORM O10-CONVERT“NUMERIC“CODE 
ELSE 
PERFORM O20-CONVERT“ALPHA-CODE. 


OOS~EXIT~PROGRAM. 
EXIT PROGRAM. 


OLN -CONVERT“NUMERIC“CODE. 
IF UmNUMERIC“STATE > ZERO ANC 
NOT > NUMBER“CFeSTATE“COCES~IN“TABLE 
SET WS"STATE-NUMBER TO U-NUMERIC“STATE 
MOVE WS“STATE“ABRREVIATION CWS"“STATE-NUMBER) 
TO UnSTATE 
MOVE WS“STATE"NAME CWS<STATE-NUMBER) TO U-STATE“NAME 
ELSE 
IF U"NUMERIC“STATE = 98 
MGVE "XX" TO U-STATE 
ELSE 
MOVE 1 TG UrSTATESRETURN-STATUS. 


OZ0-CONVERT-~ALPHA~CODE. 
IF UTSTATE = *XX* 
MOVE 98 TQ UtNUMERIC“STATE 
ELSE 
SET WS“STATE“NUMBER TO 1 
SEARCH kKS“STATE 
AT EAC MOVE 1 TO UMSTATEWRETURN@-STATUS 


WHEN UsSTATE = WS“STATETABSREVIATION CWS“STATE“NUMBER) 


SET UmWNUMERIC@STATE TO WS-STATE“NUMBER 


MOVE WS“STATESNAME CWS“STATE-NUMBER) TC UWSTATE“NAME.W 
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COMMUNICATION SECTION 


The COMMUNICATION SECTION is that part of the DATA DIVISION wherein the interface. areas neces- 
sary to communicate with data communication devices declared in the Network Controller (NC) are defined. 


In a COBOL74 program the communication description entries (CD) represent the*highest level of organization 
in the COMMUNICATION SECTION. The COMMUNICATION SECTION header is followed by a commu- 
nication description entry consisting of a level indicator (CD), a data-name, and a series of independent 
clauses. These clauses indicate the queues and subqueues, the message date and time, the source, the text 
length, the status and end keys, and message count of input. Although SUB-QUEUE clauses are allowed, the 
B 1000 COBOL74 implementation does not support subqueues. Additional clauses specify the destination 
count, the text length, the status and error keys, and destinations for the output. The actual entry is terminated 
by a period. These record areas may be implicitly redefined by user-specified record description entries fol- 
lowing the various communication description clauses. 


COMMUNICATION DESCRIPTION STRUCTURE 


General Format: 


Format 1: 


eo este some nc 


meee traneemnenemmneesnertetntnenttrer ttt A A Ss sR SSRN 


CD cd-name; 


| [ ; SYMBOLIC QUEUE IS data-name-! ] 


SYMBOLIC SUB-QUEUE-! IS data-name-2 ] 


we 


SYMBOLIC SUB-QUEUE-2 IS data-name-3 ] 


we 


SYMBOLIC SUB-QUEUE-3 IS data-name-4 | 


we 


FOR [INITIAL ] INPUT MESSAGE DATE IS data-name-5 ] 


we 


; MESSAGE TIME IS data-name-6 ] 


SYMBOLIC SOURCE IS data-name-7 | 


we 


TEXT LENGTH IS data-name-8 | 


we 


END KEY IS data-name-9 ] 


we 


cen oe ce cee cone | ee Oe ee OO oe 


STATUS KEY IS data-name-10] 


we 


en 


; MESSAGE COUNT IS data-name-11] | 


[ data-name-l, data-name-2,... , data-name-! 1 ] 


1 nemesis “threes teeta esses stn Stet a tt nn NN Sere 
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Format 2: 


CD cd-name; FOR OUTPUT 
[ ; DESTINATION COUNT IS data-name-! ] 
[ ; TEXT LENGTH IS data-name-2 ] 
{ ; STATUS KEY IS data-name-3 ] 
E DESTINATION TABLE OCCURS integer-2 TIMES 


[ ; INDEXED BY index-name-1 [, index-name-2] ... ] | 


[ ; ERROR KEY IS data-name-4 ] 


[ ; SYMBOLIC DESTINATION IS data-name-5 ] 


Syntax Rules: 
Format 1: 


1. A CD must appear only in the COMMUNICATION SECTION. 

2. Within a single program, the INITIAL clause may be specified in only one CD. The INITIAL clause 
must not be used in a program that specifies the USING phrase of the PROCEDURE DIVISION 
Header. 

. Except for the INITIAL clause, the optional clauses may be written in any order. 

4. If neither option in the format is specified, a level 01 data description entry must follow the CD de- 

scription entry. Either option may be followed by a level 01 data description entry. 

5. For each INPUT CD, a record area of 87 contiguous standard data format characters is allocated. 

This record area is defined as follows: 


Lv) 


a. The SYMBOLIC QUEUE clause defines data-name-1 as the name of an elementary alphanumeric 
data item of 12 characters occupying positions | through 12 in the record. 

b. The SYMBOLIC SUB-QUEUE-! clause defines data-name-2 as the name of an elementary alpha- 
numeric data item of 12 characters occupying positions 13-24 in the record. 

c. The SYMBOLIC SUB-QUEUE-2 clause defines data-name-3 as the name of an elementary alpha- 
numeric data item of 12 characters occupying positions 25-36 in the record. 

d. The SYMBOLIC SUB-QUEUE-3 clause defines data-name-4 as the name of an elementary alpha- 
numeric data item of 12 characters occupying positions 37-48 in the record. 

e. The MESSAGE DATE clause defines data-name-5 as the name of a data item whose implicit de- 
scription is that of an integer of 6 digits without an operational sign occupying character positions 
49 through 54 in the record. 

f. The MESSAGE TIME clause defines data-name-6 as the name of a data item whose implicit de- 
scription is that of an integer of 8 digits without an operational sign occupying character positions 
55 through 62 in the record. 

g. The SYMBOLIC SOURCE clause defines data-name-7 as the name of an elementary alphanumer- 
ic data item of 12 characters occupying positions 63 through 74 in the record. 
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h. The TEXT LENGTH clause defines data-riame-8 as the name of an elementary data item whose 
implicit description is that of an integer of 4 digits without an operational sign occupying charac- 
ter positions 75 through 78 in the record. 

i. The END KEY clause defines data-name-9 as the name of an elementary alphanumeric data item 
of 1 character occupying position 79 in the record. 

j. The STATUS KEY clause defines data-name-10 as the name of an elementary alphanumeric data 
item of 2 characters occupying positions 80 through 81 in the record. 

k. The MESSAGE COUNT clause defines cdata-name-11 as the name of an elementary data item 
whose implicit description is that of an integer of 6 digits without an operational sign occupying 
character positions 82 through 87 in the record. 


The second option may be used to replace the above clauses by a series of data-names which, taken in order, 
correspond to the data-names defined by these clauses. 


Use of either option results in a record whose implicit description is equivalent to the following: 


Implicit Description Comment 
Ol data-name-0, 
02 data-name-1] PICTURE X(12). SYMBOLIC QUEUE 
02 data-name-2 PICTURE X(12). * NOT IMPLEMENTED 
02 data-name-3 PICTURE X(12). * NOT IMPLEMENTED 
02 data-name-4 PICTURE X(12). * NOT IMPLEMENTED 
02 data-name-5 PICTURE 9(06). MESSAGE DATE 
02 data-name-6 PICTURE 9(08). MESSAGE TIME 
02 data-name-7 PICTURE X(12). SYMBOLIC SOURCE 
02 data-name-8 PICTURE 9(04). TEXT LENGTH 
02 data-name-9 PICTURE X, END KEY 
02 data-name-10 PICTURE XxX. STATUS KEY 
02 data-name-11 PICTURE 9(06). MESSAGE COUNT 
NOTE 


The information under the heading Comment is for clarification and is not part of 
the description. 


6. Record description entries following an INPUT CD implicitly redefine this record and must describe 
a record of exactly 87 characters. Multiple redefinitions of this record are permitted; however, only 
the first redefinition may contain VALUE clauses. The record is always referenced according to the 
data descriptions defined in Syntax Rule 5. 

7. Data-name-1, data-name-2, ..., data-name-!1 must be unique within the CD. Within this series, any 
data-name may be replaced by the reserved word FILLER. 
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Format 2: 

1. A CD must appear only in the COMMUNICATION SECTION. 

2. If none of the optional clauses of the CD is specified, a level 01 data description entry must follow 
the CD description entry. 

3. For each OUTPUT CD, a record area of contiguous standard data format characters is allocated ac- 
cording to the formula: (10 + 13 x integer-2). 


ve 
8. 


a. 
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The DESTINATION COUNT clause defines data-name-1 as the name of a data item whose impli- 
cit description is that of an integer without an operational sign occupying character positions 1 
through 4 in the record. 


. The TEXT LENGTH clause defines data-name-2 as the name of an elementary data item whose 


implicit description is that of an integer of 4 digits without an operational sign occupying charac- 
ter positions 5 through 8 in the record. 


. The STATUS KEY clause defines data-name-3 to be an elementary alphanumeric data item of 


2 characters occupying positions 9 through 10 in the record. 


. Character positions 11 through 23 and every set of 13 characters thereafter form table items of 


the following description: 


1) The ERROR KEY clause defines data-name-4 as the name of an elementary alphanumeric data 
item of 1 character. 

2) The SYMBOLIC DESTINATION clause defines data-name-5 as the name of an elementary 
alphanumeric data item of 12 characters. 


Use of the above clauses results in a record whose implicit description is equivalent to the fol- 
lowing: 


Implicit Description Comment 


01 data-name-0. 


02 data-name-1 PICTURE 9(04). DESTINATION COUNT 
02 data-name-2 PICTURE 9(04). TEXT LENGTH 
02 data-name-3 PICTURE XX. STATUS KEY 
02 data~name OCCURS integer-2 TIMES. DESTINATION TABLE 
03 data-name-4 PICTURE X. ERROR KEY 
03 data-name-5 PICTURE X(12). SYMBOLIC DESTINATION 
NOTE 


The information under the heading Comment is for clarification and is not part of 
the description. 


Record descriptions following an OUTPUT CD implicitly redefine this record. Multiple redefinitions 
of this record are permitted; however, only the first redefinition may contain VALUE clauses. That 
record is always referenced according to the data descriptions defined in Syntax Rule 10. 


. Data-name-1, data-name-2, ..., data-name-5 must be unique within a CD. 
. If the DESTINATION TABLE OCCURS clause is not specified, one (1) ERROR KEY and one (1) 


SYMBOLIC DESTINATION area is assumed. In this case, neither subscripting nor indexing is per- 
mitted when referencing these data items. 


If the DESTINATION TABLE OCCURS clause is specified, data-name-4 and data-name-5 may only 


be referred to by subscripting or indexing. 
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There is no restriction on the value of the data item referenced by data-name-I and integer-2. 
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General Rules: 


Format |: 
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I. 


The INPUT CD information constitutes the communication between the Data Communication Sub- 
system and the COBOL74 program as information about the message being transmitted. This infor- 
mation does not come from the terminal as part of the message. 


. The fields SYMBOLIC SUB-QUEUE-!,. SYMBOLIC SUB-QUEUE-2, and SYMBOLIC SUB- 


QUEUE-3 in the INPUT CD are not,implemented in B 1000 COBOL74. However, ANSI.74 rules 
specify that these unused fields must contain spaces. Since COBOL74 initializes data to hex zercs, 
not spaces, it is necessary to explicitly define a value of spaces for all three fields to avoid a run- 
time error. 


. The SYMBOLIC QUEUE referenced by data-name-! contains’ a symbolic name designating a queue. 


All symbolic names must have been previously defined as a file in the Network Controller. In accor- 
dance with the B 1000 naming conventions, positions 11 and 12 in data-name-1 must contain spaces. 
The SYMBOLIC QUEUE field in the INPUT CD is mandatory, unless the SQN option is used at 
run time. Refer to the B 1000 Systems Software Operation Guide, Volume 1, form number 1108982. 
Since the SQN option must be sent by an MCS, use is restricted and thus, makes use of the SYM- 
BOLIC QUEUE field in the INPUT CD the easiest method of indicating the file name. 


. A RECEIVE statement causes the serial return of the next message from the queue as specified by 


the entries in the CD. 


. The INITIAL clause is specified in an INPUT CD, whenever a COBOL74 program is zipped by an 


MCS using the SQN MCP control message. The symbolic name of the queue that demanded this 
activity is placed in the data item referenced by data-name-1 through data-name-4, the SYMBOLIC 
QUEUE. In all other cases, the contents of the data item referenced by data-name-1! of the CD asso- 
ciated with the INITIAL clause are initialized to spaces. | 


The symbolic name is inserted, or the initialization to spaces is completed prior to the execution 
of the first PROCEDURE DIVISION staternent. 


The execution of a subsequent RECEIVE statement naming the same contents of the data item refer- 
enced by data-name-! (SYMBOLIC QUEUE), returns the actual message that caused the program 
to be scheduled. Only at that time is the remainder of the CD updated. 


. If the Data Communication Subsystem attempts to schedule a program lacking an INITIAL clause, 


the results are undefined. 


. MESSAGE DATE (data-name-5) has the format YYMMDD (year, month, day), with contents repre- 


senting the date the message was received by the Data Communication Subsystem. 


The contents of the data item referenced by data-name-5 are only updated as part of the execution 
of a RECEIVE statement. 


. The contents of MESSAGE TIME (data-name-6) have the format HHMMSSTT (hours, minutes, sec- 


onds, hundredths of a second) and represent the time the message was received by the Data Commu- 
nication Subsystem. 


The contents of the data item referenced by data-name-6 are only updated as part of the execution 
of the RECEIVE statement. 


. During the execution of a RECEIVE statement, the data item referenced by data-name-7 (SYMBOL- 


IC SOURCE) is updated with the station name, as defined in the Station Section of the Network 
Controller. The SYMBOLIC SOURCE is the communications terminal that is the source of the mes- 
sage being transferred. However, if the station name of the communication terminal is not known, 
the contents of the data item referenced by data-name-7 will be spaces. 
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After every RECEIVE, the user program must move the SYMBOLIC SOURCE station name to the 
appropriate field (SYMBOLIC DESTINATION) in the OUTPUT CD, before initiating the SEND to 
‘that station. If this is not done, a run-time error occurs since there is no destination station available 
for message transfer. 


. TEXT LENGTH (data-name-8) contains the number of character positions filled as a result of the 


execution of the RECEIVE statement. 


. The contents of the data item referenced by data-name-9 (END KEY) are set as part of the execution 


of a RECEIVE statement. 
If an end of message has been detected, the contents of the data item referenced by data-name-9 
are set to 2. 


. The STATUS KEY referenced by data-name-10 indicates the status condition of the previously 


executed RECEIVE, ACCEPT MESSAGE COUNT, ENABLE INPUT, or DISABLE INPUT state- 
ments. 


Use of this field is optional but highly recommended. Any RECEIVE or SEND error, left undetected 
because of the absence of a STATUS KEY check, causes the program to fall through to the next 
executable statement, in most cases, with no indication to the user that a problem exists. 

The actual association between the contents of the data item referenced by data-name-10 and the 
status condition is defined in Table 6-4. 


13. The MESSAGE COUNT referenced by data-name-11 indicates the number of messages that exist 
in a queue as part of the execution of an ACCEPT statement with the COUNT phrase. 
Format 2: 
1. The nature of the OUTPUT CD information is such that it is not sent to the terminal, but contains 


os 


3% 
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information about the message being transmitted. 

During the execution of a SEND, ENABLE OUTPUT, or DISABLE OUTPUT statement, the con- 
tents of the data item referenced by data-name-! (DESTINATION COUNT) indicate the number of 
symbolic destinations that are to be used from the area referenced by data-name-5 (SYMBOLIC 
DESTINATION). 


The first symbolic destination is found in the first occurrence of the area referenced by data-name- 
5; the second symbolic destination in the second occurrence of the area referenced by data-name- 
5 ..., up to and including the occurrence of the area referenced by data-name-S indicated by the con- 
tents of data-name-|!. 


If, during the execution of a SEND, ENABLE OUTPUT, or DISABLE OUTPUT statement, the 
value of DESTINATION COUNT (data-name-1!) is outside the range of | through integer-2, an error 
condition is indicated and the execution of the SEND, ENABLE OUTPUT, or DISABLE OUTPUT 
statement is terminated. 


It is the responsibility of the user to ensure that the value of DESTINATION COUNT (data-name- 
1) is valid at the time of execution of the SEND, ENABLE OUTPUT, or DISABLE OUTPUT state- 
ment. 

As part of the execution of a SEND statement, the Data Communication Subsystem interprets the 
contents of TEXT LENGTH (data-name-2) as user indication of the number of leftmost character 
positions of the data item referenced by the associated SEND identifier from which data is to be 
transferred. If TEXT LENGTH is zero, no characters are transferred. 


It is important that TEXT LENGTH be given the correct value prior to each SEND of a message 
size which varies from that of the previous SEND. If TEXT LENGTH is greater than the size of 
the message actually being sent, SEND fails with a STATUS KEY value of 50. 
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5. 


Each occurrence of the data item referenced by data-name-5 contains a symbolic destination (station 
name) previously defined in the Network Controller. If the SYMBOLIC DESTINATION (data-name- 
5) does not contain a valid station name, SEND fails with a STATUS KEY value of 20. 


These symbolic destination names must follow the rules for the formation of system-names. In accor- 
dance with the B 1000 naming conventions, positions 11 and 12 in data-name-5 must contain spaces. 
The contents of STATUS KEY (data-name-3) indicates the status condition of the previously 
executed SEND, ENABLE OUTPUT, or DISABLE OUTPUT statement. 


The actual association between the contents of the data item referenced by data-name-3 and the stat- 
us condition is defined in Table 6-4. 


- If, during the execution of a SEND, an ENABLE OUTPUT, or a DISABLE OUTPUT statement, 


the MCP determines that any specified destination is unknown, or the Network Controller chooses 
to deny the program access to any destination, the contents of the data item referenced by clata- 
name-3 (STATUS KEY) and all occurrences of the data items referenced by data-name-4 (ERROR 
KEY) are updated. 

The contents of the data item referenced by data-name-4, when equal to 1, indicate that the associ- 
ated value in the area referenced by data-name-5 (SYMBOLIC DESTINATION) has not been previ- 
ously defined or has been denied access to this destination. Otherwise, the contents of the data item 
referenced by data-name-4 are set to zero (0). 


All Formats: 
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l. 


Table 6-4 indicates the possible contents of the data items referenced by data-name-10 for Format 
1, and by data-name-3 for Format 2, at the completion of each statement shown. An asterisk (*) on 
a line in a statement column indicates that the associated code shown for that line is possible for 
that statement. 
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Table 6-4. Communication Status Key Condition 
RECEIVE 


SEND 
ACCEPT MESSAGE COUNT 
ENABLE INPUT (without terminal) 


ENABLE INPUT (with terminal) 

ENABLE OUTPUT 

DISABLE INPUT (without terminal) 
DISABLE INPUT (with terminal) 
DISABLE OUTPUT 
STATUS KEY CODE 


No error detected. Action completed. 


zz : 


* 
* 


One or more destinations are disabled. Action completed. 


One or more destinations unknown, or access thereto 
denied by system. Action completed for known destina- 
tions. No action taken for unknown destinations. 
Data-name-4 (ERROR KEY) indicates known or unknown 
(includes system denied access). 


One or more queues unknown, or access to queue denied 
by system. No action taken. 


The source is unknown, or access thereto denied by the 
system. No action taken. 


Content of DESTINATION COUNT invalid. No action 
taken. 


Password invalid. No enabling/disabling action taken. 


Character count greater than length of sending field. 
No action taken. 

No Data Communication Subsystem present. 

No action taken. 


G12336 


Example: 

The following program, DCOM74ECHO, illustrates the COMMUNICATION SECTION in a data communica- 
tion program. The SYMBOLIC QUEUE, MCSREMOTE, is a name declared in the Network Controller. One 
copy of this program can be accessed by more than one station if it is executed by means of the SMCS/JOBS 
file. 
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000100 
000200 
000300 
000400 
000300 
000600 
000700 
000800 
000900 
001000 
001100 
001200 
001300 
001400 
001500 
001400 
001700 
001800 
001900 
002000 
002100 
002200 
0023500 
002400 
002500 
002600 
002700 
002800 
002900 
003000 
003100 
003200 
003300 
003400 
003500 
003400 
003700 
003800 
003700 
004000 
004100 
004200 
004300 
004400 
004500 
004600 
004700 
004800 
004900 


sé 3S HH HM BH 


x 


IDENTIFICATION DIVISION. 
PROGRAM-ID. DCOM74ECHO. 
AUTHOR. TODOS. 


REMARKS. THIS PROGRAM 1S AN ECHO TEST PROGRAM. ENTER A 
MESSAGE UP TO 12 CHARACTERS LONG AND IT WILL BE REPEATED 
BACK TO YOU. ENTER "END" AND IT WILL GO TO END-OF-JOB. 


ENVIRONMENT DIVISION. 
CONFIGURATION SUCTION. 
SOURCE-COMPUTER. B1000. 
OBJECT-COMPUTER. B1000. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
01 OQUT-AREA. 
03 FILLER PIC X(20) VALUE "I AM YOUR ECHO !! = "“. 
03 REC-AREA. 
03 END-CODE PIC X(3). 
03 FILLER PIC X(9). 


COMMUNICATION SECTION. 

CD INPUT-O FOR INPUT. 

Qi IN-Q-SPECS. 

KEKKKKKKK "MCSREMOTE" IS THE NAME OF A REMOTE FILE DEFINED IN 
KKKKKKKKK THE NETWORK CONTROLLER. 


03 SYMBOLIC-QUE PIC X(12) VALUE "MCSREMOTE". 
03 SY-SUBI-QUE PIC X(12) VALUE SPACES. 
03 SY-SUB2-QUE PIC X(12) VALUE SPACES. 
03 SY-SUBS-QUE PIC X¢i2) VALUE SPACES. 


KKKKKKKKK FOLLOWING 5 FIELDS ARE UPDATED WHEN A MESSAGE IS 
KKKKKKKKK RECEIVED. 


03 MESS-DATE PIC 9(4). 
03 MESS-TIME PIC 9(8). 
03 IN-STATION PIC X(12). 
03  IN-TEXT-LENGTH PIC 9(4). 
03 END~-KEY PIC X. 


KKKKKAKKK IN-STATUS-KEY SHOWS STATUS WHEN ONE OF THE FOLLOWING 
KKXKKKKKK STATEMENTS 15 EXECUTED: RECEIVE, ACCEPT MESSAGE 
KKKKKKKKK COUNT, ENABLE INPUT, DISABLE INPUT. 

03 IN-STATUS-KEY PIC XX. 
KKKKKKKKK FOLLOWING FIELD IS UPDATED WHEN THE ACCEPT MESSAGE 
KAKKKKKKK COUNT STATEMENT IS EXECUTED. 

03 MSG-COUNT PIC 9(4). 


CD QUTPUT-@ FOR OUTPUT. 
Qi OQUT-Q-SPECS. 
KKKKKKKKK NUM-OUT-STATIONS WITH A VALUE OF 1 SENDS TO ONE 
KKKKKKKKK STATION AT A TIME. 
03 NUM-OUT-STATIONS PIC 9(4) VALUE 1. 


005000 
003100 
005200 
003300 
005400 
003300 
005600 
005700 
005800 
003900 
006000 
006100 
006200 
006300 
006400 
004300 
006600 
006700 
0068006 
006900 
007000 
007100 
007200 
007300 
007400 
007500 
007600 
007700 
007800 
007900 
008000 
008100 
008200 
008300 
008400 
008500 
008400 
008700 
008800 
008900 
009000 
007100 
009200 
009300 
009400 
009500 
009600 
009700 
009800 
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COMMUNICATION SECTION 


K KKKKKKKKK OUT-TEXT-LENGTH IS UPDATED BY USER. 

03 OUT-TEXT-LENGTH PIC 9(4) VALUE 32. 
K OXKKKKKKKK FOLLOWING FIELD IS UPDATED BY SYSTEM AFTER EXECUTION 
K ¥KKKKKKKK OF SEND, ENABLE OUTPUT, OR DISABLE OUTPUT. 

03 QUT-STATUS-KEY PIC XX. 
* KKKKKKKKK FOLLOWING TABLE OCCURS ONLY ONCE (SENDING TO ONE 
K KKKKKKKKK STATION AT A TIME). 

03 QUT-ERROR-KEY PIC X. 
K XXKKKKKKK OQUT-STATION 15 UPDATED BY USER: STATION NAME (AS 
K KKKAKKKKK DECLARED IN NETWORK CONTROLLER) OF THE DESTINATION 
K RXKKKKKKK FOR A MESSAGE. 

03 OUT-STATION PIC X(1i2). 


PROCEDURE DIVISION. 
ABCDEF . 
K RXKKKKKK THE ENABLE INPUT STATEMENT IS ONLY NECESSARY IF 
K KXKKEKKE PASSWORD CHECKING [5 DESIRED. 
ENABLE INPUT INPUT-Q WITH KEY "TIO". 
IF IN-STATUS-KEY NOT = 00 
DISPLAY “IN-STATUS-KEY = " IN-STATUS-KEY 
“SINCE MY IN-STATUS-KEY DOES NOT = 00," 
“ T HAD AN ERROR." 
STOP RUN. 


BEGINNING-OF-JOB. 
MOVE SPACES TO REC-AREA. 
RECEIVE INPUT-Q MESSAGE INTO REC-AREA 
NO DATA GO TO BEGINNING-OF~-JOB. 
IF IN-STATUS-KEY NOT = 60 
DISPLAY "RECEIVE WAS NOT SUCCESSFUL. IN-STATUS-KEY = " 
IN-STATUS-KEY 
STOP RUN. 
IF END-CODE = "END" 
DISPLAY "THANK YOU FOR TALKING TO ME!!" 
STOP RUN. 
K KKKKKKKKK SEND MESSAGE TO STATION THAT YOU RECEIVED FROM. 
MOVE IN-STATION TO OUT-STATION. 
SEND OUTPUT-O FROM OUT-AREA WITH EMI. 
IF QUT-STATUS-KEY NOT = 00 
DISPLAY "MY SEND WAS NOT SUCCESSFUL." 


" MY QUT-STATUS-KEY = " OQUT-STATUS-KEY 
"s MY QUT-ERROR-KEY = " OUT-ERROR-KEY 
STOP RUN. 


IF OUT-ERROR-KEY NOT = 0 
DISPLAY “OQUT-STATION HAS BEEN DENIED, OOPS!" 
STOP RUN. 
GO TO BEGINNING-OF-JOB. 
K 
END-OF~JOB. 
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SECTION 7 
PROCEDURE DIVISION 


GENERAL 


The PROCEDURE DIVISION must be included in every COBOL74 source program. This division may con- 
tain declarative and nondeclarative procedures. 


Declarative sections must be grouped at the beginning of the PROCEDURE DIVISION preceded by the key 
word DECLARATIVES and followed by the key words END DECLARATIVES. Refer to the USE statement 
in this section. 


RULES OF PROCEDURE FORMATION 


A procedure is composed of a paragraph or group of successive paragraphs, a section or a group of successive 
sections within the PROCEDURE DIVISION. If one paragraph is in a section, then all paragraphs must be 
in sections. A procedure-name is a word used to refer to a paragraph or section in the source program in 
which it occurs, and consists of a section-name or paragraph-name which may be qualified. 


The end of the PROCEDURE DIVISION and the physical end of the program is that physical position in 
a COBOL74 source program after which no further procedures appear. 


A section consists of a section header followed by zero, one, or more successive paragraphs. A section ends 
immediately before the next section or at the end of the PROCEDURE DIVISION or, in the declaratives por- 
tion of the PROCEDURE DIVISION, at the key words END DECLARATIVES. 

A paragraph consists of a paragraph-name, followed by a period and a space, followed by zero, one, or more 
successive sentences. A paragraph ends immediately before the next paragraph-name or section-name or at 
the end of the PROCEDURE DIVISION or, in the declaratives portion of the PROCEDURE DIVISION, at 
the key words END DECLARATIVES. 

A sentence consists of one or more statements and is terminated by a period. 


A statement is a syntactically valid combination of words and symbols beginning with a COBOL74 verb. 


The term ’identifier’ is defined as the word or words necessary to make unique reference to a data item. 


EXECUTION OF THE PROCEDURE DIVISION 


Execution begins with the first statement of the PROCEDURE DIVISION, excluding declaratives. Statements 
are executed in the order of appearance, except where the user indicates GO TO, PERFORM, CALL, condi- 
tional statements, and declarative procedures. 


PROCEDURE DIVISION STRUCTURE 


The PROCEDURE DIVISION is made up of the PROCEDURE DIVISION header and the PROCEDURE 
DIVISION body. Descriptions of these follow. 
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PROCEDURE DIVISION 


PROCEDURE DIVISION HEADER 


The PROCEDURE DIVISION is identified by and must begin with the following header: 


| PROCEDURE DIVISION [USING data-name-1 [, data-name-2] ... ] ‘ | 


PROCEDURE DIVISION BODY 


The body of the PROCEDURE DIVISION must conform to one of the following two formats. 


Format 1: 


[ DECLARATIVES. 
{ section-name SECTION [segment-number]. declarative-sentence 
[ paragraph-name. [sentence] ... ] eis } oe 
END DECLARATIVES. ] 
{ section-name SECTION [segment-number]. 
[ paragraph-name. [sentence] ... ] kde } oe 


A et oer neither A SE 


Format 2: 


| { paragraph-name. [sentence] ... ss 
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STATEMENTS AND SENTENCES 


There are three types of statements: conditional statements, compiler-directing statements, and imperative 
statements. 


There are three types of sentences: conditional sentences, compiler-directing sentences, and imperative sen- 
tences. 


CONDITIONAL STATEMENTS 


A conditional statement specifies that the truth value of a condition is to be determined and that the subse- 
quent action of the object program is dependent on this truth value. 


A conditional statement is 


1. An IF, SEARCH, or RETURN statement. 

2. A READ statement that specifies the AT END or INVALID KEY phrase. 

3. A WRITE statement that specifies the INVALID KEY or END-OF-PAGE phrase. 

4. A START, REWRITE, or DELETE statement that specifies the INVALID KEY phrase. 

5. An arithmetic statement (ADD, COMPUTE, DIVIDE, MULTIPLY, SUBTRACT) that specifies the 
SIZE ERROR phrase. 

A RECEIVE statement that specifies a NO DATA phrase. 

. A STRING, UNSTRING, or CALL statement that specifies the ON OVERFLOW phrase. 


SI 


Example: 


The following syntax for the IF statement is an example of a conditional statement. 


IF conditional ; 


NEXT SENTENCE 


statement-1 ; ELSE statement-2 
- ELSE NEXT er, 


Statement-1 or statement-2 can be either imperative or conditional statements. If statement-1 or statement-2 


is conditional, then these conditions within the conditional statement (IF statement) are considered to be 
nested. 
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CONDITIONAL SENTENCES 


A conditional sentence is a conditional statement, optionally preceded by an imperative statement, terminated 
by a period. 


Examples: 


IF AGE 1S GREATER THAN VOTE-AGE GO TO PARTY-TYPE, 
ELSE ADD 1 TO DONT-COUNT, GO TO GET-NEXT-PERSON. 


IF SALES IS EQUAL TO QUOTA , MCVE SALESMAN TO 
PROMOTION-LIST, ELSE MOVE SALESMAN TOBAD-LIST. 


COMPILER-DIRECTING STATEMENTS 


A compiler-directing statement consists of a compiler-directing verb and its operands. The compiler-directing 
verbs are COPY and USE (refer to the COPY statement and the USE statement in this section). A compiler- 
directing statement causes the compiler to take a specific action during compilation. 


COMPILER-DIRECTING SENTENCES 


A compiler-directing sentence is a single compiler-directing statement terminated by a period. 


Example: 


MYFILE. COPY ‘‘FAMILY/MYFILE ON MYPACK”’. 


IMPERATIVE STATEMENTS 


An imperative statement indicates a specific unconditional action to be taken by the object program. An imper- 
ative statement is any statement that is neither a conditional statement nor a compiler-directing statement. An 
imperative statement may consist of a sequence of imperative statements, each possibly separated from the 
next by a separator. The imperative verbs are: 


ACCEPT GENERATE SEND 

ADD (1) GO SET 

ALTER INITIATE SORT 
CALL(3) INSPECT START (2) 
CANCEL MERGE STOP 

CLOSE MOVE STRING (3) 
COMPUTE (1) MULTIPLY (1) SUBTRACT (1) 
DELETE (2) OPEN SUPPRESS 
DISABLE PERFORM TERMINATE 
DISPLAY READ (5) UNSTRING (3) 
DIVIDE (1) RECEIVE (4) WAIT 
ENABLE RELEASE WRITE (6) 
EXIT REWRITE (2) 
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The numbers in parentheses following some of the verbs have the following meaning: 


Number Meaning 


Without the optional SIZE ERROR phrase. 

Without the optional INVALID KEY phrase. 

Without the optional ON OVERFLOW phrase. 

Without the optional NO DATA phrase. 

Without the optional AT END phrase or INVALID KEY phrase. 
Without the optional INVALID KEY phrase or END-OF-PAGE phrase. 


Dank WNKD 


When ’imperative-statement’ appears in the general format of statements, it refers to a statement that begins 
with an imperative verb and specifies an unconditional action to be taken. An imperative statement may con- 
sist of a sequence of imperative statements. Imperative statements must be ended by a period, or an ELSE 
phrase associated with a previous IF statement, or a WHEN phrase associated with a previous SEARCH state- 
ment. 


IMPERATIVE SENTENCES 


An imperative sentence is one or more imperative statements terminated by a period. An imperative statement 
can contain either a GO TO statement or a STOP RUN statement which, if present, must be the last statement 
in the sentence. 

Examples: 


ADD 1 TO ITEM-COUNT, GO TO READ=NEXT-!TEM. 
DISPLAY ''THIS IS THE END '', STOP RUN. 
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CONTROL RELATIONSHIP BETWEEN PROCEDURES 


In COBOL74, imperative and conditional sentences describe the procedure that is to be accomplished. The 
sentences are written successively, according to the rules of the coding form (Section 3), to establish the se- 
quence in which the object program is to execute the procedure. In the PROCEDURE DIVISION, names are 
used so that one procedure can reference another by naming the procedure to be referenced. In this way, 
the sequence in which the object program is to be executed may be varied simply by transferring control to 
a named procedure. 


In procedure execution, control is transferred only to the beginning of a paragraph or section. Control ts 
passed to a sentence within a paragraph only from the sentence written immediately preceding it. If a proce- 
dure is named, control can be passed to it from any sentence which contains a GO TO or PERFORM, followed 
by the name of the procedure to which control is to be transferred. 


PARAGRAPHS 


So that the source programmer may group several sentences to convey one idea (procedure), paragraphs have 
been included in COBOL74. In writing procedures in accordance with the rules of the PROCEDURE DIVI- 
SION and the requirements of the coding form (Section 3), the programmer begins a paragraph with a name. 
The name consists of a word followed by a period, and the name precedes the paragraph it names. A 
paragraph is terminated by the next paragraph-name. The smallest grouping of the PROCEDURE DIVISION 
which is named is a paragraph. 


Programs may contain identical paragraph-names, provided they are resident in different sections. If such 
paragraph-names are not qualified when used, the current section is assumed. Paragraph-names may be used 
in GO TO, PERFORM, and ALTER statements. 


SECTIONS 


A section consists of zero, one, or more successive paragraphs and must be named when designated. The sec- 
tion-name is followed by the word SECTION, a priority number which is optional, and a period. If the section 
is a DECLARATIVE section, the DECLARATIVE sentence USE or COPY follows the section header and 
begins on the same line. Under all other circumstances, a sentence may not begin on the same line as a sec- 
tion-name. The section-name applies to all successive paragraphs until another section-name is found. 


Since paragraph-names and section-names both have the same designated position on the reference format (po- 
sition A), section-names, when specified, are written cn one line followed by a paragraph name on a subse- 
quent line. 
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SEGMENTATION 


COBOL74 segmentation is a facility that provides a means by which the user may communicate with the com- 
piler to specify object program overlay requirements. 


COBOL74 segmentation deals only with segmentation of procedures. As such, only the PROCEDURE DIVI- 
SION and the ENVIRONMENT DIVISION are considered in determining segmentation requirements for an 
object program. 


Segmentation provides the facility of intermixing sections with different segment-numbers and allows the fixed 
portion of the source program to contain segments that may be overlaid. 


PROGRAM SEGMENTS 


Although it is not mandatory, the PROCEDURE DIVISION for a source program is usually written as a con- 
secutive group of sections, each of which is composed of a series of closely related operations that are de- 
signed to collectively perform a particular function. However, when segmentation is used, the entire PROCE- 
DURE DIVISION must be in sections. In addition, each section must be classified as belonging either to the 
fixed portion or to one of the independent segments of the object program. Segmentation does not affect the 
need for qualification of procedure-names to ensure uniqueness. 


FIXED PORTION 


The fixed portion is defined as that part of the object program which is logically treated as if it were always 
in memory. This portion of the program is composed of two types of segments: fixed permanent segments 
and fixed overlayable segments. 


A fixed permanent segment is the main program segment and may be overlaid in the same manner as if it 
were a fixed overlayable segment. A fixed overlayable segment is a segment in the fixed portion which, al- 
though logically treated as if it were always in memory, can be overlaid by another segment to optimize 
memory utilization. Variation of the number of fixed permanent segments in the fixed portion can be accom- 
plished by using a special facility called the SEGMENT-LIMIT clause (refer to SEGMENT-LIMIT in this sec- 
tion). Such a segment, if called for by the program, is always made available in the last used state. 


INDEPENDENT SEGMENTS 


An independent segment is defined as part of the object program which can overlay, and can be overlaid by, 
either a fixed overlayable segment or another independent segment. An independent segment is in initial state 
whenever control is transferred (either implicitly or explicitly) to that segment for the first time during the 
execution of a program. On subsequent transfers of control to the segment, an independent segment is also 
in initial state when: 


1. Control is transferred to that segment as a result of the implicit transfer of control between 
consecutive statements from a segment with a different segment-number. 

2. Control is transferred to that segment as the result of the implicit transfer of control between a SORT 
or MERGE statement, in a segment with a different segment-number, and an associated input or out- 
put procedure in that independent segment. 

3. Control is transferred explicitly to that segment from a segment with a different segment-number (with 
the exception noted in step 2 below). 
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On subsequent transfer of control to the segment, an independent segment is in the state when last used. 


1. Control is transferred implicitly to that segment from a segment with a different segment-number (ex- 
cept as noted in paragraphs | and 2 above). 


2. Control is transferred explicitly to that segmen as the result of the execution of an EXIT PROGRAM 
statement. 


Refer to Explicit and Implicit Transfers of Control in Section 2 for additional information. 


SEGMENTATION CLASSIFICATION 


Sections which are to be segmented are classified, using a system of segment-numbers and the following crite- 
ria. 


1. Logic requirements: Sections which must be available for reference at all times, or which are refer- 
red to frequently, are normally classified as belonging to one of the permanent segments. Sections 
which are used less frequently are normally classified as belonging either to one of the overlayable 
fixed segments or to one of the independent segments, depending on logic requirements. 

. Frequency of use: The more frequently a section is referred to, the lower the segment-number; the 
less frequently it is referred to, the higher the segment-number. 

3. Relationship to other sections: Sections which frequently communicate with one another should be 

given the same segment-numbers. 


SEGMENTATION CONTROL 


ied 


The logical sequence of the program is the same as the physical sequence except for specific transfers of con- 
trol. If any reordering of the object program is required to handle the flow from segment to segment, according 
to the rules, the compiler provides control transfers to maintain the logical flow specified in the source pro- 
gram. The compiler also provides all controls necessary for a segment to operate whenever the segment is 
used. Control may be transferred within a source program to any paragraph in a section. It is not mandatory 
to transfer control to the beginning of a section. 
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STRUCTURE OF PROGRAM SEGMENTS 
SEGMENT-NUMBERS 


Section classification is accomplished by means of a system of segment-numbers. The segment-number is in- 
cluded in the section header. 


General Format: 


| Section-name SECTION { segment-number ] . | 


Syntax Rules: 


1. The segment-number must be an integer ranging in value from 0 through 126. 
2. If the segment-number is omitted from the section header, the segment-number is assumed to be zero. 
3. Sections in the declaratives must contain segment-numbers less than 50. 


General Rules: 


1. All sections which have the same segment-number constitute a program segment. Sections with the 
Same segment-numbers need not be physically contiguous in the source program. 

2. Segments with segment-numbers 0 through 49 belong to the fixed portion of the object program. 

3. Segments with segment-numbers 50 through 126 are independent segments. 
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SEGMENT-LIMIT 


Ideally, all program segments having segment-numbers ranging from 0 through 49 should be specified as perma- 
nent segments. However, when insufficient memory is available to contain all permanent segments plus the 
largest overlayable segment, it becomes necessary to decrease the number of permanent segments. The SEG- 
MENT-LIMIT feature provides the user with a means of reducing the number of permanent segments in a 
program, while still retaining the logical properties of fixed portion segments (segment-numbers 0 through 49). 


General Format: 


The SEGMENT-LIMIT clause appears in the OBJECT-COMPUTER paragraph of the ENVIRONMENT DI- 
VISION and has the following format: 


| {, SEGMENT-LIMIT IS segment-number ] | 


om entnarSe! aepnnenem ements ttstnennsnsiunpatnatstensesatapatsnteh esiteeetGeententet- cnet th A str A SSS 


Syntax Rules: 
1. Segment-number must be an integer ranging in value from 1 through 49. 
General Rules: 


1. When the SEGMENT-LIMIT clause is specified, only those segments having segment-numbers from 
(up to, but not including, the segment-number designated as the segment-limit, are considered as per- 
manent segments of the object program. 

2. Those segments having segment-numbers from the segment-limit through 49 are considered as overlay- 
able fixed segments. 

3. When the SEGMENT-LIMIT clause is omitted, all segments having segment-numbers from 0 through 
49 are considered as permanent segments of the object program. 


Example: 

All segments whose priority number is less than that specified in SEGMENT-LIMIT are gathered into a single 
segment, regardless of physical location in the source program. All other segments equal to or greater than 
that specified in SEGMENT-LIMIT are gathered into overlayable segments according to equal priority nurn- 
ber, regardless of physical location in the source program. 


The use of the gathering technique allows programmers to create tailored segments which reduce disk access 
times. 
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SEGMENT-LIMIT 
Example: 
Program A: SEGMENT-LIMIT equals 17. 
Non-Gathered 
Segment Description Size in Digits 

00-16 Main body of the program 4,000 

17 Used frequently 1,000 

18 Used frequently 5,000 

19 Used infrequently 4,000 

20 Used at EOJ only 500 

21 Used frequently 2,000 

D2 Used at BOJ only 1,000 

23 Used frequently 500 

24 Used for infrequent test 1,500 

25 Used infrequently 3,000 

Gathered 
Segment Description Size in Digits 

00-16 Main body of the program 4,000 
17 Used frequently 1,000 
18 Used frequently 5,000 
19 Used infrequently 4,000 
20 Used at EOJ only 500 
17 Used frequently (was segment 21) 2,000 
19 Used at BOJ only (was segment 22) 1,000 
17 Used’ frequently (was segment 23) 500 
20 Used for infrequent test (was segment 24) 1,500 
20 Used infrequently (was segment 25) 3,000 


Results of Gathering 


Segment Description Size in Digits 
00-16 Main body of the program 4,000 
17 Used frequently 3,500 
18 Used infrequently 5,000 
19 Used infrequently 5,000 
20 Used infrequently 5,000 


‘*Fall through’’ is performed in the sequence shown in the Non-Gathered example, and not as appears in the 
Results of Gathering example. This preserves the logical integrity of the original program. 
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SEGMENT-LIMIT 


The COBOL74 interpreter automatically checks to see whether an overlay being called for by an object pro- 
gram is already present in memory. If present, no disk access is required and the program is not interrupted. 
If the overlay is not present, the COBOL74 interpreter interrupts the program and accesses the disk for the 
desired overlayable portion of the program. The COBOL74 interpreter uses overlay segments directly from 
the program library where the object program was cornpiled to, and is called in as an overlay in the initial 
generated code every time it is required by the operating program. 


RESTRICTIONS ON PROGRAM FLOW 


When segmentation is used, the following restriction is placed on the ALTER statement. 


THE ALTER STATEMENT 


A GO TO statement in a section whose segment-number is greater than or equal to 50 must not be referred 
to by an ALTER statement in a section with a different segment-number. 


All other uses of the ALTER statement are valid and are performed even if the GO TO to which the ALTER 
statement refers is in a fixed overlayable segment. 
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THE PROCEDURE DIVISION HEADER 


The PROCEDURE DIVISION is identified by, and must begin with, the following header: 


| PROCEDURE DIVISION [USING data-name-1 [, data-name-2] ... ] ; | 


The USING phrase is present only if the object program is to function under the control of a CALL statement, 
and the CALL statement in the calling program contains a USING phrase. 


Each of the operands in the USING phrase of the PROCEDURE DIVISION header must be defined as a 
data item in the LINKAGE SECTION in the DATA DIVISION of the program in which this header occurs, 
and must have a O1 or 77 level-number. 


Within a called program, LINKAGE SECTION data items are processed according to the data descriptions 
given in the called program. 


When the USING phrase is present, the object program operates as if data-name-! of the PROCEDURE DIVI- 
SION header in the called program and data-name-! in the USING phrase of the CALL statement in the call- 
ing program refer to a single set of data that is equally available to both the called and calling programs. The 
descriptions of data must define an equal number of character positions; however, they need not be the same 
name. In like manner, there is an equivalent relationship between data-name-2, ..., in the USING phrase of 
the called program and data-name-2, ..., in the USING phrase of the CALL statement in the calling program. 
A data-name must not appear more than once in the USING phrase in the PROCEDURE DIVISION header 
of the called program; however, a given data-name may appear more than once in the same USING phrase 
of a CALL statement. 


If the USING phrase is specified, the INITIAL clause must not be present in any CD entry. Refer to Syntax 
Rule 2, Format 1, of the Communication Description entry (CD), Section 6. 
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DECLARATIVES 


Declaratives are procedures which operate under the control of the input-output system or the DEBUG 
facility. Declaratives consist of compiler-directing sentences and associated procedures. Declaratives, if used, 
must be grouped together at the beginning of the PROCEDURE DIVISION. The group of declaratives must 
be preceded by the key word DECLARATIVES, and must be followed by the -words END DECLARATIVES. 
Each DECLARATIVE consists of a single section and must conform to the rules for procedure formation. 
The next source statement following the END DECLARATIVES statement must be a section-name or 
paragraph-name. 


USE DECLARATIVE 


A USE declarative is used to supplement the standard procedures provided by the input-output system. The 
USE sentence immediately following the section-name identifies the condition calling for the execution of the 
USE procedures. Only the PERFORM statements may reference all or part of a USE section. The USE sen- 
tence alone is never executed. Within a USE procedure, there must be no reference to the main body of the 
PROCEDURE DIVISION. The construct for the USE declarative is as follows: 


section-name SECTION. USE................. 


paragraph-name. First procedure-statement .... 


Complete rules for writing the formats for USE are stated under the USE statement in this section. 


USE FOR DEBUGGING DECLARATIVE 


The USE FOR DEBUGGING statement identifies the user items that are to be monitored by the associated 
debugging section. The construct of the USE FOR DEBUGGING statement is: 


section-name SECTION. USE FOR DEBUGGING ... | 


a i A rt A i EY eA 


Complete rules for writing the format for USE FOR DEBUGGING are stated in Section 10 (DEBUG) of this 
manual. 
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ARITHMETIC EXPRESSIONS 


An arithmetic expression can be an identifier of a numeric elementary item, a numeric literal, such identifiers 
and literals separated by arithmetic operators, two arithmetic expressions separated by an arithmetic operator, 
or an arithmetic expression enclosed in parentheses. Any arithmetic expression may be preceded by a unary 
operator. The permissible combinations of variables, numeric literals, arithmetic operators, and parentheses 
are given in Table 7-1. 


Those identifiers and literals appearing in an arithmetic expression must represent either numeric elementary 
items or numeric literals on which arithmetic may be performed. 


ARITHMETIC OPERATORS 


There are five binary arithmetic operators and two unary arithmetic operators that may be used in arithmetic 
expressions. They are represented by specific characters that must be preceded by a separator and followed 
by a separator. 


Binary Arithmetic 


Operators Meaning 
+ Addition 
- Subtraction 
* Multiplication 
/ Division 
* 


Exponentiation 


Unary Arithmetic 
Operators Meaning 


+ The effect of multiplication by 
the numeric literal +1 

- The effect of multiplication by 
numeric literal —1. 


FORMATION AND EVALUATION RULES 


1. Parentheses may be used in arithmetic expressions to specify the order in which elements are to be 
evaluated. Expressions within parentheses are evaluated first, and within nested parentheses 
evaluation proceeds from the least inclusive set. When parentheses are not used, or parenthesized ex- 
pressions are at the same level of inclusiveness, the following hierarchical order of execution is im- 
plied: 


Ist — Unary plus (+) and minus (-) 
2nd — Exponentiation 

3rd — Multiplication and division 
4th — Addition and subtraction 
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2. Parentheses are used either to eliminate ambiguities in logic where consecutive operations of the same 


hierarchical level appear, or to modify the normal hierarchical sequence of execution in expressions 
where it is necessary for deviation from the normal precedence. When the sequence of execution is 


not specified by parentheses, the order of execution of consecutive operations of the same hierarchical . . 


level is from left to right. The following expressions are ordinarily considered to be ambiguous. 
A/B *C A/B/C A eB eee 

These expressions are permitted in COBOL’74 and are interpreted as if written, respectively: 
(A/B) *C (A / B) /C (A BY. e-C 

Without parenthesizing, the following example 

A+B/C+D **E *F-G 

is interpreted as 

A+(B/Q+@ **E) *B/-G. 


The sequence of operations working from the innermost parentheses to the outermost. That is, first 
exponentiation, then multiplication and division, and finally addition and subtraction are performed. 


. The ways in which operators, variables, and parentheses may be combined in an arithmetic expression 


are summarized in Table 7-1, which illustrates that 


a. The letter ’P’ indicates a permissible pair of symbols. 
b. The character ’-’ indicates an invalid pair. 
c. The word Variable indicates an identifier or literal. 


Table 7-1. Combination of Symbols in Arithmetic Expressions 


First 
Symbol 


Second Symbol 


Variable 

* / a 
Unary + or — 
( 

) 


> 


4. An arithmetic expression may only begin with the symbol ’(’, ’+’, ’-’, or a variable and may only 


end with a °)’ or a variable. There must be a one-to-one correspondence between left and right paren- 
theses of an arithmetic expression such that each left parenthesis is to the left of the corresponding 
right parenthesis. 
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5. The following rules apply to evaluation of exponentiation in an arithmetic expression: 


a. If the value of an expression to be raised to a power is zero, the exponent must have a value 
not greater than zero. Otherwise, the size error condition exists. Refer to the SIZE ERROR phrase 
in this section. 


b. If the evaluation yields both a positive and a negative real number, the value returned as the result 


is the positive number. 
c. If no real number exists as the result of the evaluation, the size error condition exists. 


6. When no resultant-identifier is associated with an expression, an intermediate data item is used to 
store the value of the arithmetic expression. 


INTERMEDIATE DATA ITEM 


An intermediate data item is a signed numeric data item containing the values developed in the course of 
evaluating an arithmetic expression prior to the final value being moved to the resultant-identifier, if any. The 
length of this data item is determined by the compiler throughout the calculation. 
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CONDITIONAL EXPRESSIONS 


Conditional expressions identify conditions that are tested to enable the object program to select between alter- 
nate paths of control depending upon the truth value of the condition. Conditional expressions are specified 
in the IF, PERFORM, and SEARCH statements. There are two categories of conditions associated with condi- 
tional expressions: simple conditions and complex conditions. Each may be enclosed within any number of 
paired parentheses, in which case the category is not changed. 


SIMPLE CONDITIONS 


The simple conditions are the relation, class, condition-name, switch status, and sign conditions. A simple con- 
dition has a truth value of TRUE or FALSE. The inclusion in parentheses of simple conditions does not 
change the simple truth value. 


Relation Condition 


A relation condition causes a comparison of two operands, each of which may be the data item referenced 
by an identifier, a literal, or the value resulting from an arithmetic expression. A relation condition has a truth 
value of TRUE if the relation exists between the operands. Comparison of two numeric operands is permitted 
regardless of the formats specified in respective USAGE clauses. However, for all other comparisons the oper- 
ands must have the same usage. If either of the operands is a group item, the nonnumeric comparison rules 
apply. 


General Format: 


A ee NE eR A | a Od sms srt Aw ren ergata nS 
Ree eS 


IS [NOT] GREATER THAN 


identifier-1 IS [NOT] LESS THAN identifier-2 
literal-1 IS [NOT] EQUAL TO literal-2 
arithmetic- IS [NOT] > arithmetic- 
expression-| IS [NOT] < expression-2 
IS [NOT] = 
NOTE 
The required relational characters ’>’, ’*<’, and ’=’ are not underlined to avoid 


confusion with other symbols such as ’=’ (greater than or equal to). 


The first operand (ide \tifier-1, literal-1, or arithmetic-expression-1) is the subject of the condition; the second 
operand (identifier-2, literal-2, or arithmetic-expression-2) is the object of the condition. The relation condition 
must contain at least one reference to a variable. 


The relational operator specifies the type of comparison to be made in a relation condition. A space, comrna, 
semicolon, right parenthesis, closing quotation mark, or closing commercial at sign (@) must precede the first 
reserved word comprising the relational operator. A space, comma, semicolon, left parenthesis, opening quota- 
tion mark, or opening commercial at sign (@) must follow the last reserved word comprising the relational 
operator. If the relational operator consists of more than one reserved word, then a space, Comma or semico- 
lon must be used to separate each pair of consecutive reserved words comprising the relational operator. When 
used, NOT and the next key word or relational character are one relational operator that defines the 
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comparison to be executed for truth value; for example, NOT EQUAL is a truth test for an unequal 
comparison; NOT GREATER is a truth test for an equal or less comparison. The meaning of the relational 
operators is as follows: 


Relational Operator Meaning 
IS [NOT] GREATER THAN Greater than or not greater than 
IS [NOT] > 
IS [NOT] LESS THAN Less than or not less than 
IS [NOT] < 
IS [NOT] EQUAL TO Equal to or not equal to 
IS [NOT] = 
NOTE 
The required relational characters ’>’, ’<’, and ’=’ are not underlined to avoid 


confusion with other symbols such as ’=’ (greater than or equal to). 


COMPARISON OF NUMERIC OPERANDS 


For operands whose class is numeric, a comparison is made with respect to the algebraic value of the oper- 
ands. The length of the literal or arithmetic expression operands, in terms of number of digits represented, 
is not significant. Zero is considered a unique value regardless of the sign. 


Comparison of these operands is permitted regardless of the manner in which usage is described. Unsigned 
numeric operands are considered positive for purposes of comparison. 


COMPARISON OF NONNUMERIC OPERANDS 


For nonnumeric operands, or one numeric and one nonnumeric operand, a comparison is made with respect 
to a specified collating sequence of characters. Refer to OBJECT-COMPUTER in Section 5 for additional in- 
formation. If one of the operands is specified as numeric, it must be an integer data item or an integer literal. 
The follawing conditions apply: 


1. If the nonnumeric operand is an elementary data item or a nonnumeric literal, the numeric operand 
is treated as though it were moved to an elementary alphanumeric data item of the same size as the 
numeric data item (in terms of standard data format characters), and the contents of this alphanumeric 
data item are compared to the nonnumeric operand. Refer to the MOVE statement and the PICTURE 
character ’P’ in this section. 

2. If the nonnumeric operand is a group item, the numeric operand is treated as though it were moved 
to a group item of the same size as the numeric data item (in terms of standard data format charac- 
ters), and the contents of this group item are compared to the nonnumeric operand. Refer to the 
MOVE statement, and the PICTURE character ’P’ for additional information. 

3. A noninteger numeric operand cannot be compared to a nonnumeric operand. 


The size of an operand is the total number of standard data format characters in the operand. Numeric and 
nonnumeric operands ‘may be compared only when usage is the same. 
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There are two cases to consider: operands of equal size and operands of unequal size. 


1. Operands of equal size. If the operands are of equal size, comparison effectively proceeds by compar- 
ing characters in corresponding character positions starting from the high order end and continuing 
until either a pair of unequal characters is encountered or the low order end of the operand is reached, 
whichever comes first. The operands are determined to be equal if all pairs of characters compare 
equally through the last pair, when the low order end is reached. 


The first encountered pair of unequal characters is compared to determine a relative position in the 
collating sequence. The operand that contains the character that is positioned higher in the collating 
sequence is considered to be the greater operand. 


iw) 


. Operands of unequal size. If the operands ar2 of unequal size, comparison proceeds as though the 
shorter operand were extended on the right by sufficient spaces to make the operands of equal size. 


COMPARISONS INVOLVING INDEX-NAMES AND/OR INDEX DATA ITEMS 


Relation tests may be made between: 


|. Two index-names. The result is the same as if the corresponding occurrence numbers were compared. 
. An index-name and a data item (other than an index data item) or literal. The occurrence number 
that corresponds to the value of the index-name is compared to the data item or literal. 


3. An index data item and an index-name or another index data item. The actual values are compared 
without conversion. 


he 


The comparison of an index data item with a literal or with any data item not specified above, is 
not allowed. 


Class Condition 


The class condition determines whether the operand is numeric, consisting entirely of the characters ’0’, ‘1’, 


2°, 73°, ..., °9’, with or without the operational sign, or alphabetic, consisting entirely of the characters ’A’, 
*B’, °C’, ..., °Z’, and space. 


General Format: 


Le ss nee eewunrenuvwsararensenthrasre-iehehthiréis ib nian n-ne enh A A! eee tenth eens encasement trees nnseenegeneAnh  NNNANEN 


{ NUMERIC 
identifier IS [NOT] \ ALPHABETIC 


en ee tt a NN A Nn ne een tn A i 


The usage of the operand used with the ALPHABETIC test must be DISPLAY. The usage of the operand 
used with the NUMERIC test must be DISPLAY or COMPUTATIONAL. When used, NOT and the next 
key word specify one class condition that defines the class test to be executed for truth value; for example, 
NOT NUMERIC is a truth test for determining that an operand is nonnumeric. 


The NUMERIC test cannot be used with an item whose data description describes the item as alphabetic or 
‘aS a group item composed of elementary items whose data description indicates the presence of operational 
sign(s). [If the data description of the item being tested does not indicate the presence of an operational sign, 
the item being tested is determined to be numeric only if the contents are numeric and an operational sign 
is not present. If the data description of the item does indicate the presence of an operational sign, the item 
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being tested is determined to be numeric only if the contents are numeric and a valid operational sign is pres- 
ent. The position and representation of valid operational signs is discussed in the PICTURE clause, General 
Rule 8, the S symbol, and the SIGN clause in Section 6. 

The ALPHABETIC test cannot be used with an item whose data description describes the item as numeric. 


The item being tested is determined to be alphabetic only if the contents consist of any comtbination of the 
alphabetic characters ’A’ through ’Z’ and the space character. 


Condition-Name Condition (Conditional Variable) 


In a condition-name condition, a conditional variable is tested to determine whether or not the value is equal 
to one of the values associated with a condition-name. 


General Format: 


| condition-name | 


If the condition-name is associated with a range or ranges of values, then the conditional variable is tested 
to determine whether or not the value is within this range, including the end values. 


The rules for comparing a conditional variable with a condition-name value are the same as those specified 
for relation conditions. 


The result of the test is TRUE if one of the values corresponding to the condition-name equals the value of 
the associated conditional variable. 


Switch-Status Condition 

A switch-status condition determines the ON or OFF status of a switch. The switch-name and the ON or OFF 
value associated with the condition must be named in the SPECIAL-NAMES paragraph of the ENVIRON- 
MENT DIVISION. 


General Format: 


| condition-name | 


The result of the test is TRUE if the switch is set to the specified position corresponding to the condition- 
name. 
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Sign Condition 


The sign condition determines whether or not the algebraic value of an arithmetic expression is less than, 
greater than, or equal to zero. 


General Format: 


{ POSITIVE } 
arithmetic-expression IS { NOT ]} ) SeGat 
ZERO 


Ce 


When used, NOT and the next key word specify one sign condition that defines the algebraic test to be 
executed for truth value; for example, NOT ZERO is a truth test for a nonzero (positive or negative) value. 
An operand is positive if the value is greater than zero, negative if the value is less than zero, and zero if 
the value is equal to zero. The arithmetic expression must contain at least one reference to a variable. 


COMPLEX CONDITIONS 


A complex condition is formed by combining simple conditions, combined conditions, and/or complex condi- 
tions with logical connectors (logical operators AND and OR) or negating these conditions with logical negation 
(the logical operator NOT). The truth value of a complex condition, whether parenthesized or not, is that truth 
value which results from the interaction of all the stated logical operators on the individual truth values of 
simple conditions, or the intermediate truth values of conditions logically connected or logically negated. 


The logical operators with meanings follow. 


Logical Operator Meaning 


AND Logical conjunction; the truth value is TRUE if both of the 
conjoined conditions are TRUE; FALSE if one or both of 
the conjoined conditions is FALSE. 

OR Logical inclusive OR; the truth value is TRUE if one or 
both of the included conditions is TRUE; FALSE if both 
included conditions are FALSE. 

NOT Logical negation or reversal of truth value; the truth value 
is TRUE if the condition is FALSE; FALSE if the 
condition is TRUE. 


The logical operators must be preceded by a space and followed by a space. 
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Examples: 


The following are illustrations of complex conditions: 


AGE IS LESS THAN MAX-AGE AND AGE IS GREATER THAN 20. 
AGE IS GREATER THAN 24 OR MARRIED. 


STOCK-ON-HAND 1S LESS THAN DEMAND OR STOCK-SUPPLY IS 
GREATER THAN DEMAND + INVENTORY. 


A tS EQUAL TO B, AND C IS NOT EQUAL TO D, OR E IS NOT 
EQUAL TO F, AND G IS POSITIVE, OR H IS LESS THAN | * J. 


STOCK=ACCT 1S GREATER THAN 72 AND (STK-NUMBER IS LESS 
THAN 100 OR STK=NUMBER EQUAL TO 62879). 


It is not necessary to use the same logical connective throughout the complex expression. 


Negated Simple Conditions 

A simple condition is negated through the use of the logical operator NOT. The negated simple condition ef- 
fects the opposite truth value for a simple condition. Thus, the truth value of a negated simple condition is 
TRUE only if the truth value of the simple condition is FALSE; the truth value of a negated simple condition 
is FALSE only if the truth value of the simple condition is TRUE. The inclusion in parentheses of a negated 
simple condition does not change the truth value. 


General Format: 


a NOT simple-condition | 


Combined and Negated Combined Conditions 
A combined condition results from connecting conditions with one of-the logical operators AND or OR. 


General Format: 


condition {AND | condition 
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Where condition may be: 


I. A simple condition. 

2. A negated simple condition. 

3. A combined condition. 

4. A negated combined condition. The NOT logical operator followed by a combined condition enclosed 
within parentheses. 

5. Combinations of the above, specified according to the rules summarized in Table 7-2. 


Although parentheses need never be used when either AND or OR (but not both) is used exclusively in a 
combined condition, parentheses may be used to effect a final truth value when a mixture of AND, OR, and 
NOT is used. Refer to Table 7-2 and Condition Evaluation Rules in this section for additional information. 


Table 7-2 indicates the ways in which conditions and logical operators may be combined and parenthesized. 


There must be a one-to-one correspondence between left and right parentheses such that each left parenthesis 
is to the left of the corresponding right parenthesis. 


Table 7-2. Combinations of Conditions, Logical Operators, and Parentheses 


Location in In a left-to-right sequence of 


Conditional elements: 
Given the following Expression ree ara 
element Element, when not Element, when not 
first, may be last, may be 
immediately immediately 
preceded by only: followed by only: 
Simple-condition OR, NOT, AND, ( OR, AND, ) 
simple-condition, simple-condition, 
OR or AND ) NOT, ( 
pererenmrteres tro anatirewior oe La ee aaa 
simple-condition, 
__ NOT No | __OR, AND, ( ( 
simple-condition, 
aes ( No | __OR, NOT, AND, ( NOT, ( 
simple-condition, 
) Yes ) OR, AND, ) 


The element pair OR NOT is permissible but the pair NOT OR is not permissible. NOT (is permissible but 
NOT NOT is not permissible. 
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ABBREVIATED COMBINED RELATION CONDITIONS 


When simple or negated simple relation conditions are combined with logical connectives in a consecutive se- 
quence such that a succeeding relation condition contains a subject or subject and relational operator that is 
common with the preceding relation condition, and no parentheses are used within such a consecutive se- 
quence, any relation condition except the first may be abbreviated by: 


1. The omission of the subject of the relation condition. 
2. The omission of the subject and relational operator of the relation condition. 


General Format: 


: bus AND : . 
relation-condition ton \ [ NOT ] [ relational-operator ] object 


Within a sequence of relation conditions, both of the above forms of abbreviation may be used. The effect 
of using such abbreviations is as if the last preceding stated subject were inserted in place of the ‘omitted sub- 
ject, and the last stated relational operator were inserted in place of the omitted relational operator. The result 
of such implied insertion must comply with the rules of Table 7-2. This insertion of an omitted subject and/ 
or relational operator terminates once a complete simple condition is encountered within a complex condition. 


In abbreviated relation conditions, an arithmetic expression beginning with a left parenthesis may not be the 
object of an abbreviation where both the subject and the relational operator are implied. An arithmetic expres- 
sion may be the object if it does not begin with a left parenthesis or if the relational operator is stated. 


The interpretation applied to the use of the word NOT in an abbreviated combined relation condition is as 
follows: 


1. If the word immediately following NOT is GREATER, ’>’, LESS, ’<’, EQUAL, or ’=’, then the 
NOT participates as part of the relational operator. 

2. The NOT is interpreted as a logical operator and the implied insertion of subject or relational operator 
results in a negated relation condition. 


Examples of abbreviated combined and negated combined relation conditions and expanded equivalents follow. 
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Examples: 


Abbreviated Combined 


Relation Condition Expanded Equivalent 

a >b AND NOT <c ORd ((a >b) AND (a NOT <c)) OR (a NOT < d) 

a NOT EQUAL b OR c (a NOT EQUAL b) OR (a NOT EQUAL c) 

NOT a=bORc (NOT (a = b)) OR (a= cc) 

NOT (a GREATER b OR <c) NOT ((a GREATER b) OR (a<c)) 

NOT (a NOT >b AND c NOT ((((a NOT > b) AND (a NOT >c)) 
AND NOT d) AND (NOT (a NOT > d)))) 

IF A=BORC IF A= BORA=C 

IF A<XBOR=C ORD IF A<XBORA#=CORA®=D 


CONDITION EVALUATION RULES 


Parentheses may be used to specify the order in which individual conditions of complex conditions are to be 
evaluated when necessary to depart from the implied evaluation precedence. Conditions within parentheses 
are evaluated first, and, within nested parentheses, evaluation proceeds from the least inclusive condition to 
the most inclusive condition. When parentheses are noi used, or parenthesized conditions are at the same level 
of inclusiveness, the following hierarchical order cf logical evaluation is implied until the final truth value. is 
determined. 


1. 


Zi 


wo 
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Values are established for arithmetic expressions. Refer to Formation and Evaluation Rules in this 
section. 
Truth values for simple conditions are established in the following order: 


relation (following the expansion of any abbreviated relation condition) 
class 

condition-name 

switch-status 

sign 


. Truth values for negated simple conditions are established. 
. Truth values for combined conditions are established: 


AND logical operators, followed by 
OR logical operators. 


. Truth values for negated combined conditions are established. 
. When the sequence of evaluation is not completely specified by parentheses, the order of evaluation 


of consecutive operations of the same hierarchical level is from left to right. 
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Example: 
To evaluate 

Cl AND (C2 OR NOT (C3 OR C4) 
reduce as follows: 


let C5 equal ‘‘C3 OR C4’’, resulting in 
Cl AND (C2 OR NOT C5) 


let C6 equal ‘‘C2 OR NOT CS’’, resulting in 
Cl AND C6. 


1108883 7-27 


B 1000 Systems COBOI.74 Reference Manual 
Procedure Division 


COMMON PHRASES 


COMMON PHRASES 


In the statement descriptions that follow, several phrases appear frequently: the ROUNDED phrase, the SIZE 
ERROR phrase, and the CORRESPONDING phrase. 


In the following discussion, a resultant-identifier is that identifier associated with a result of an arithmetic oper- 
ation. 


ROUNDED PHRASE 


If, after decimal point alignment, the number of places in the fraction of the result of an arithmetic operation 
is greater than the number of places provided for the fraction of the resultant-identifier, truncation is relative 
to the size provided for the resultant-identifier. When rounding is requested, the absolute value of the result- 
ant-identifier is increased by adding a one into the low-order digit whenever the absolute value of the next 
least significant digit of the intermediate data item is greater than or equal to five. 


When the low-order integer positions in a resultant-identifier are represented by the character ’P’ in the picture 


for that resultant-identifier, rounding or truncation occurs relative to the rightmost integer position for which 
storage is allocated. 


SIZE ERROR PHRASE 


If, after decimal point alignment, the absolute value of a result exceeds the largest value that can be contained 
in the associated resultant-identifier, a size error condition exists. Division by zero always causes a size error 
condition. The size error condition applies only to the final results of an arithmetic operation and does not 
apply to intermediate results, except in the MULTIPL.Y and DIVIDE statements, in which case the size error 
condition applies to the intermediate results as well. If the ROUNDED phrase is specified, rounding takes 
place before checking for size error. When a size error condition occurs, the subsequent action depends on 
whether or not the SIZE ERROR phrase is specified. 


1. If the SIZE ERROR phrase is not specified and a size error condition occurs, the resultant value is 
stored in each of the receiving fields left truncated where required. Values of resultant-identifier(s) 
for which no size error condition occurs are unaffected by size errors that occur for other resultant- 
identifier(s) during execution of this operation. 


If division by zero is the cause of the size error condition, the execution of the program is abnormally 
terminated. 


2. If the SIZE ERROR phrase is specified and a size error condition occurs, then the values of resultant- 
identifier(s) affected by the size errors are not altered. Values of resultant-identifier(s) for which no 
size error condition occurs are unaffected by size errors that occur for other resultant-identifier(s) dur- 
ing execution of this operation. After completion of the execution of this operation, the imperative 
statement in the SIZE ERROR phrase is executed. 


For the ADD statement with the CORRESPONDING phrase and the SUBTRACT statement with the 
CORRESPONDING phrase, if any of the individual operations produces a size error condition, the 


imperative statement in the SIZE ERROR phrase is not executed until all of the individual additions 
and subtractions are completed. 
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CORRESPONDING PHRASE 


For the purpose of this discussion, dl and d2 must each be identifiers that refer to group items. A pair of 
data items, one from d! and one from d2 correspond if the following conditions exist: 


1. A data item in di and a data item in d2 are not designated by the key word FILLER and have the 
same data-name and the same qualifiers up to, but not including, d! and d2. 

2. At least one of the data items is an elementary data item in the case of a MOVE statement with the 
CORRESPONDING phrase. Both of the data items are elementary numeric data items in the case 
of the ADD statement with the CORRESPONDING phrase or the SUBTRACT statement with the 
CORRESPONDING phrase. 

3. The description of dl and d2 must not contain level-number 66, 77, or 88 or the USAGE IS INDEX 
clause. 

4. A data item that is subordinate to dl or d2 and contains a REDEFINES, RENAMES, OCCURS, or 
USAGE IS INDEX clause is ignored, as well as those data items subordinate to the data item that 
contains the REDEFINES, OCCURS, or USAGE IS INDEX clause. However, dl and d2 may have 
REDEFINES or OCCURS clauses or be subordinate to data items with REDEFINES or OCCURS 
clauses. Refer to the OCCURS clause in Section 6. 


Refer to the ADD statement in this section for an example of CORRESPONDING. 
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GENERAL RULES FOR STATEMENT FORMATS 


The following paragraphs describe general rules for statement formats. 


ARITHMETIC STATEMENTS 


The arithmetic statements are ADD, COMPUTE, DIVIDE, MULTIPLY, and SUBTRACT and have several 
common features: 


1. The data descriptions of the operands need not be the same; any necessary conversion and decimal 
point alignment is supplied throughout the calculation. 

2. The maximum size of each operand is 18 decimal digits. 

3. Each arithmetic operation is evaluated using an intermediate data item for the result of the operation. 
The contents of the intermediate data item are moved to the resultant-identifier according to the rules 
for the MOVE statement. Rounding is performed and the size error condition is determined only dur- 
ing this MOVE operation. Refer to Intermediate Data Item, Rounded Phrase, Size Error Phrase, and 
the MOVE Statement in this section for additional information. 


OVERLAPPING OPERANDS 


When a sending and a receiving item in an arithmetic statement or an INSPECT, MOVE, SET, STRING, 
or UNSTRING statement share a part, but not all, assigned storage areas, the result of the execution of such 
a statement is undefined. 


MULTIPLE RESULTS IN ARITHMETIC STATEMENTS 


The ADD, COMPUTE, DIVIDE, MULTIPLY, and SUBTRACT statements may have multiple results. Such 
statements behave as though they had been written in the following ways: 


1. A statement which performs all arithmetic necessary to arrive at the result to be stored in the receiv- 
ing items, and stores that result in a temporary storage location. 

2. A sequence of statements transferring or combining the value of this temporary location with a single 
result. These statements are considered to be written in the same left-to-right sequence in which the 
multiple results are listed. 


The result of the statement 
ADD A, B, C, TO C, D(C), E 
is equivalent to: 
ADD A, B, C GIVING TEMP 
ADD TEMP TO C 
ADD TEMP TO D(C) 
ADD TEMP TO E 


where TEMP is an intermediate result item provided by the compiler. 
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INCOMPATIBLE DATA 


Except for the class condition (refer to Class Condition in this section), when the contents of a data item are 
referenced in the PROCEDURE DIVISION and the contents of that data item are not compatible with the 
class specified for that data item by the PICTURE clause, then the result of such a reference is undefined. 


NUMERIC FUNCTIONS 


A numeric function can be specified as a sending operand in an arithmetic statement, a MOVE statement, or 
an arithmetic expression. 


OFFSET Function 


The OFFSET function represents the number of characters preceding a data item in a logical record. 


General Format: 
OFFSET (data-name) 


Syntax Rules: 


|. Data-name must be described in the DATA DIVISION. 
2. Data-name can be qualified. 


General Rules: 


1. OFFSET (data-name) represents the number of characters preceding the data item referenced by data- 
name in the logical record in which data-name is defined. If data-name references a packed numeric data 
item not aligned on a character boundary, OFFSET (data-name) represents the number of characters pre- 
ceding the character in which data-name begins. If data-name is a record-name or a 77-level item, the 
value of OFFSET (data-name) is zero. 

2. The internal representation of OFFSET is the same as that of an index data item; that is, it occupies 
the same space and has the same alignment as an item declared PICTURE S9(7) USAGE IS COMPUTA- 


TIONAL. 
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CATEGORIES OF VERBS 


The verbs available for use with the COBOL74 compiler are categorized below. Although the word IF is not 
a verb in the English language, it is utilized as such in, the COBOL74 language. Its occurrence is a vital feature 


in the PROCEDURE DIVISION. 


Category Verb 


Arithmetic ADD 
COMPUTE 
DIVIDE 
INSPECT 
MULTIPLY 


SUBTRACT 


COPY 

USE 
Conditional ADD 

CALL 
COMPUTE 
DELETE 
DIVIDE 

IF 
MULTIPLY 
READ 
RECEIVE 
RETURN 
REWRITE 
SEARCH 
START 
STRING 
SUBTRACT 
UNSTRING 
WRITE 
ACCEPT 
INSPECT 
MOVE 
STRING 
UNSTRING 


STOP 


Compiler Directing 


Data Movement 


Ending 
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Option 


TALLYING 


SIZE ERROR 
OVERFLOW 
SIZE ERROR 
INVALID KEY 
SIZE ERROR 


SIZE ERROR 

END or INVALID KEY 
NO DATA 

END 

INVALID KEY 


INVALID KEY 

OVERFLOW 

SIZE ERROR 

OVERFLOW 

INVALID KEY or END-OF-PAGE 


DATE. DAY. or TIME 
REPLACING 
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Category 


Input-Output 


Inter-Program 
Communication 


Ordering 


Procedure Branching 


Table Handling 


Verb 


ACCEPT 
CLOSE 
DELETE 
DISABLE 
DISPLAY 
ENABLE 
OPEN 
READ 
RECEIVE 
REWRITE 
SEND 
START 
STOP 
WRITE 


CALL 
CANCEL 


MERGE 
RELEASE 
RETURN 
SORT 


ALTER 
CALL 
EXIT 

GO TO 
PERFORM 


SEARCH 
SET 


SPECIFIC VERB FORMATS 


identifier 


literal 


CATEGORIES OF VERBS 


Option 


The specific verb formats, together with a detailed discussion of the restrictions and limitations associated with 
each, appear on the following pages in alphabetic sequence. 
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ACCEPT 


The ACCEPT statement causes low volume data to be made available to the specified data item. 
General Format: 


Format 1: 


| ACCEPT identifier [FROM {mnemonic-name }] | 


A ee eR PR er lr A NT SEY etn reer NP 


ACCEPT identifier FROM 


Syntax Rules: 


1. The mnemonic-name in Format | must also be specified in the SPECIAL-NAMES paragraph of the 
ENVIRONMENT DIVISION and must be associated with the hardware-name ODT. 
2. An item declared in the LINKAGE SECTION cannot be used with the ACCEPT statement. 


General Rules: 


Format 1: 


1. The ACCEPT statement causes the transfer of data from the hardware device. This data replaces the 
contents of the data item named by the identifier. 

2. The maximum number of characters that can be transferred is unlimited. 

3. If the FROM phrase is not given, the device that is used is the ODT. 

4. When the operator enters the AX message in response to the ACCEPT, continuation of the object 
program begins with the next executable statement in sequence. 


Format 2: 


5. The ACCEPT statement causes the information requested to be transferred to the data item specified 
by identifier according to the rules of the MOVE statement. 


DATE, DAY, 


(2 nd TIME, are conceptual data items 
and are not described in the COBOL74 program. 
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6. DATE is composed of the data elements year of century, month of year, and day of month. The se- 
quence of the data element codes are from high order to low order (left to right), year of century, 
month of year, and day of month (YYMMDD). July 1, 1968 would be expressed as 680701. DATE, 
when accessed by a COBOL74 program, behaves as that described in the COBOL74 program as an 
unsigned elementary numeric integer data item, six digits in length. 

7. DAY is composed of the data elements year of century and day of year. The sequence of the data 
element codes are from high order to low order (left to right) year of century, day of year (YYDDD). 
July 1, 1968 is expressed as 68183. DAY, when accessed by a COBOL74 program, behaves as if de- 
scribed in a COBOL74 program as an unsigned elementary numeric integer data item, five digits in 
length. 

8. TIME is composed of the data elements hours, minutes, seconds, and hundredths of a second, 
(HHMMSSTH). TIME is based on elapsed time after midnight on a 24-hour clock basis; 2:41 p.m. 
is expressed as 14410000. TIME, when accessed by a COBOEL74 program, behaves as if described 
in a COBOL74 program as an unsigned elementary numeric integer data item, eight digits in length. 
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ACCEPT MESSAGE COUNT 


The ACCEPT MESSAGE COUNT statement causes the number of messages in a queue to be made available. 


General Format: 


| ACCEPT ~~ cd-name MESSAGE COUNT | 


Syntax Rules: 
1. Cd-name must reference an input CD. 


General Rules: 


1. The ACCEPT MESSAGE COUNT statement causes the MESSAGE COUNT field specified for cd- 
name to be updated to indicate the number of messages that exist in a queue. 

2. Upon execution of the ACCEPT MESSAGE COUNT statement, the contents of the area specified 
by the communication description entry must contain the name of the symbolic queue to be tested. 
Testing the condition causes the contents of the data items referenced by data-name-10 (STATUS 
KEY) and data-name-11 (MESSAGE COUNT? of the area associated with the communication entry 
to be appropriately updated. Refer to the Communication Description (CD) in Section 6. 
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ADD 


The ADD statement causes two or more numeric operands to be summed and the result to be stored. 


General Format: 


Format |: 
identifier-1 , identifier-2 
ADD ... TO  identifier-m [ ROUNDED ] 
literal-1 , literal-2 


[ , identifierrn [ROUNDED ] ] 


[; ON SIZE ERROR imperative-statement ] 


Format 2: 


identifier-1 identifier-2 , identifier-3 
ADD , 
literal-1 literal-2 , literal-3 


GIVING identifier-m [ROUNDED] [, identifier-n [ROUNDED] ]... 


[; ON SIZE ERROR imperative-statement ] 


Format 3: 


CORRESPONDING 
ADD identifier-1 TO identifier-2 [ROUNDED] 
CORR 
[ ; ON SIZE ERROR imperative-statement ] | 


Syntax Rules: 


1. In Formats | and 2, each identifier must refer to an elementary numeric item, except that in Format 
2 each identifier following the word GIVING must refer to either an elementary numeric item or an 
elementary numeric edited item. In Format 3, each identifier must refer to a group item. 

2. Each literal must be a numeric literal. 

3. CORR is an abbreviation for CORRESPONDING. 
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General Rules: 


1. Additional rules and explanations relative to this statement are giver in the appropriate paragraphs. 
Refer to Intermediate Data Item, CORRESPONDING Phrase, ROUNDED Phrase, SIZE ERROR 
Phrase, Arithmetic Statements, Overlapping Operands, and Multiple Results in Arithmetic Statements 
in this section. 

2. If Format 1 is used, the values of the operands preceding the word TO are added together, then the 
sum is added to the current value of identifier-n storing the result immediately into identifier-n. This 
process is repeated, respectively, for each operand following the word TO. 

3. If Format 2 is used, the values of the operands preceding the word GIVING are added together, then 
the sum is stored as the new value of each icentifier-m, identifier-n, ...; the resultant-identifiers. 
4. If Format 3 is used, data items in identifier-1 are added to and stored in corresponding data items, 

in identifier-2. 


5. The compiler ensures that enough places are carried so that significant digits are not lost during execu- 
tion. 
Examples: 


Assume as initial values: X=2, Y=10, Z=15, TOT=50, and SUB=30. 


Format 1: 


ADD X TO TOT. 
ADD X, Y, Z, TO TOT, SUB. 


Format 2: 


ADD X, Y GIVING TOT. 
ADD X, Y, Z GIVING TOT, SUB. 


Format 3: 


results TOT=52 
results TOT=77, SUB=57 


results TOT=12 
results TOT=27, SUB=27 


For Format 3, assume the following structures have the initial value in parentheses. 


Ol NOW O01 LATER 
02 AL 05 AL 
03 FO (8) 06 FO (10) 
03 RD (10) 06 XY (10) 
02 ME (20) 05 AB (10) 
02 HE (5) 05 HE (10) 
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Therefore the statement 
ADD CORRESPONDING NOW TO LATER, 
results in: 
02 LATER 
05 AL 
06 FO (18) 
06 XY ((10) 


05 AB (10) 
O05 HE (15) 


The only data items whose values changed are FO and HE. 
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ALTER 


The ALTER statement modifies a predetermined sequence of operations. 


General Format: 


ALTER procedure-name-1 TO [PROCEED TQ] procedure-name-2 


A TE TS | tS SSS Sh es SS re EASTER 


Syntax Rules: 


1. Each procedure-name-1, procedure-name-3, ..., is the name of a paragraph that contains a single sen- 
tence consisting of a GO TO statement without the DEPENDING phrase. 
2. Each procedure-name-2, procedure-name-4, ..., is the name of a paragraph or section in the PROCE- 


DURE DIVISION. 


General Rules: 


1. Execution of the ALTER statement modifies the GO TO statement in the paragraph named procedure- 
name-!, procedure-name-3, ..., so that subsequent executions of the modified GO TO statements cause 
transfer of control to procedure-name-2, procedure-name-4, ..., respectively. Modified GO TO state- 
ments in independent segments may, under some circumstances, be returned to initial states. Refer 
to Independent Segments in this section. 


All other uses of the ALTER statement are valid and are performed even if procedure-name-1, proce- 
clure-name-3 is in an overlayable fixed segment. Refer to Segmentation in this section. 
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CALL 


The CALL statement causes control to be transferred from one object program to another, within the run unit. 


General Format: 


Format I: 


( identifier-1 
CALL [ USING data-name-1 [, dataname-2] ... ] 
literal-1 


{; ON OVERFLOW imperative-statement | 


Format 2: 


as 


Syntax Rules: 
Format 1 Only: 


1. Literal-1 must be a nonnumeric literal in the form ‘‘B’’ for a single file name, ‘‘B/C’’ for a multi-file- 
id and file-id, ‘‘B ON A”’ for a single file on a specific disk, or ‘‘B/C ON A”’ for a multi-file-id and 
file-id on a specific disk. Refer to the B 1000 Systems Software Operation Guide, Volume 1, Form Num- 
ber 1108982, for the formation of file names. 

2. Identifier-1 must be defined as an alphanumeric data item. 

3. The USING phrase is included in the CALL statement only if there is a USING phrase in the PROCE- 
DURE DIVISION header of the called program. The number of operands in each USING phrase must 
be identical. 

4. Each of the operands in the USING phrase must have been defined as a data item in the FILE SEC- 
TION,. WORKING-STORAGE SECTION, COMMUNICATION SECTION, or LINKAGE SECTION, 
and must have a level-number of 01 or 77. Data-name-1, data-name-2, ..., may be qualified when refer- 
ring to data items defined in the FILE SECTION or the COMMUNICATION SECTION. 
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General Rules: 


Format 1 Only: 
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1. 


2 
. A called program is in initial state the first time it is called within a run unit and the first time it is 


The program whose name is specified by the value of literal-1 or identifier-1 is the called program; the 
program in which the CALL statement appears is the calling program. 
The execution of a CALL statement causes control to pass to the called program. 


called after a CANCEL operation to the called program. 
On all other entries into the called prograra, the state of the program remains unchanged from the 


state when last exited by an EXIT PROGRAM statement. This includes all data fields, the status and 
positioning of all files, and all alterable switch settings. 


. If, during the execution of a CALL statement, it is determined that the available portion of object time 


memory is incapable of accommodating the program specified in the CALL statement, and the ON 
OVERFLOW phrase is specified, no action is taken and the imperative-statement is executed. 


If the above condition exists and the ON OVERFLOW phrase is not specified, the run unit is sus- 
pended until such time as the necessary portion of object time memory to accommodate the program 
specified in the CALL statement is available. 


. Called programs may contain CALL statements. However, a called program must not contain a CALL 


statement that directly or indirectly calls the calling program. Program A can CALL Program B, and 
Program B can CALL Program C, but Program C cannot CALL A or B, and Program B cannot 
CALL A. 


. The data-names, specified by the USING phrase of the CALL statement, indicate those data items avail- 


able to a calling program that may be referred to in the called program. The order of appearance of 
the data-names in the USING phrase of the CALL statement and the USING phrase in the PROCE- 
DURE DIVISION header is critical. Corresponding data-names refer to a single set of data which is 
available to the called and calling prograrns. The correspondence is identified by position, not by name. 
In the case of index-names, no such correspondence is established. Index-names in the called and calling 
programs always refer to separate indices. 


. The CALL statement may appear anywhere within a segmented program. When a CALL statement ap- 


pears in a section with a segment-number greater than or equal to 50, that segment is in the last used 
state when the EXIT PROGRAM staternent returns control to the calling program. 


Example of Format 1: 


Assume the called program name is PROGONE, and the PROCEDURE DIVISION header is: 


PROCEDURE DIVISION USING A, B, C. 


The calling program contains: 


CALL ‘‘PROGONE”’ USING X, Y, A. 
ADD X, Y, A GIVING TOTAL. 
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When the CALL is executed a correspondence is set up between-the two sets of data-names such that (A 
and X), (B and Y), and (C and A) refer to the same data items regardless of the fact that both sets contain 
an A as a data-name. If PROGONE changes the values of A, B, and C to new values, these data items 
are available to the calling program in X, Y, and A, respectively. 


When PROGONE is exited by a CANCEL or EXIT PROGRAM, control returns to: 


ADD X, Y, A GIVING TOTAL. 


1108883-001 7-43 


B 1000 Systems COBOL74 Reference Manual 
Procedure Division 


CANCEL 


CANCEL 


The CANCEL statement releases the memory areas occupied by the referred to program. 


General Format: 


raemaiii A aRREAeeRrEINNESnAS eteRRSS See SernwafotesneintentnS NSANSAY S Ssenns? eh er S /S retnsn /h nS S  SAAS  fpn sRSA 


identifier-1 ‘ , identifier-2 
CANCEL 


literal-1 , literal-2 


Syntax Rules: 


1. Literal-1, literal-2, .... must be a nonnumeric literal in the form ‘‘B’’ for a single file name, ‘‘B/C”’ 
for a multi-file-id and file-id, ‘‘B ON A’ for a single file on a specific disk, or ‘‘B/C ON A” for a 
multi-file-id and file-id on a specific disk. Refer to the B 1000 Systems Software Operation Guide, Vol- 
ume |, Form Number 1108982, for the formation of file names. 

2. Identifier-1, identifier-2, .... must each be defined as an alphanumeric data item such that values can 
be a program name. 


General Rules: 


1. Subsequent to the execution of a CANCEL statement, the program that has been cancelled ceases 
to have any logical relationship to the run unit in which the CANCEL statement appears. A subse- 
quently executed CALL statement naming the same program results in that program being initiated 
in the initial state. 

2. A program named in the CANCEL statement must not refer to any program that has been called and 
has not yet executed an EXIT PROGRAM statement. 

3. A logical relationship to a cancelled subprogram is established only by execution of a subsequent 

CALL statement. 

. A called program is cancelled either by being referred to as the operand of a CANCEL statement 

or by the termination of the run unit of which the program is a member. 

5. No action is taken when a CANCEL statement is executed naming a program that has not been called 
in this run unit or has been called and is, at present, cancelled. Control passes to the next statement. 


BSN 
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CLOSE 


General Format: 


The CLOSE statement terminates the processing of a file, or a reel/unit of a file, and also may specify the dispo- 
sition of the file and the device to which it is assigned. 


{REEL} Fes NO ead 
FOR REMOVAL _ 

NO REWIND —» i 
LOCK 


UNIT 


CLOSE _ file-name-! WITH 


{ REEL\ ES NO REWIND 

UNIT f LFOR REMOVAL Tia 
NO REWIND 
LOCK 


file-name-2 WITH 


Syntax Rules: 


1. The REEL or UNIT phrase must only be used for sequential files. 
es referenced 


General Rules: 


Except where otherwise stated in the following general rules, the terms reel and unit are synonymous and com- 
pletely interchangeable in the CLOSE statement. 


1. A CLOSE statement may only be executed for a file in an open mode. 
2. For the purpose of showing the effect of various types of CLOSE statements as applied to various stor- 
age media, all files are divided into the following categories: 


a. Sequential non-reel/unit. A sequential file whose input or output medium is such that the concepts 
of rewind and reel/unit have no meaning. This category includes mass storage files. A CLOSE state- 
ment executed for a non-reel/unit file may affect the disposition of the device to which it is assigned. 
However, the assignment and control of the physical device on which certain non-reel/unit files (in- 
cluding mass storage files) reside, is regarded to be the exclusive right of the operating system. Conse- 
quently, CLOSE statements executed for these files affect only the disposition and association of the 
physical file with the logical file, not the disposition of the physical device. 
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b. Sequential single-reel/unit. A sequential file that is entirely contained on one reel/unit. 
c. Sequential multi-reel/unit. A sequential file that is contained on more than one reel/unit. 
d. Indexed and Relative Files. Indexed and Relative files are labeled mass storage files. 


3. The results of executing each type of CLOSE for each category of file are summarized in Table 7-3. 


Table 7-3. Relationship of Categories of Files and Formats of the CLOSE Statement 


File Category 


CLOSE Sequential Sequential Indexed & 
Statement Sequential Single- Multi- Relative 
Format Non-Reel/Unit | Reel/Unit Reel/Unit Files 


CLOSE C,H C,G,A,H C1,H 
CLOSE WITH LOCK CE.LJ C,G,E,1,J |C,G.E,A.LJ|  CI,LE 
CLOSE WITH NO REWIND x C,B,A,H 


CLOSE REEL/UNIT x. F,D,G,J 
FOR REMOVAL 

CLOSE REEL/UNIT »4 

WITH NO REWIND 


The definitions of the symbols in the table are given in the following pages. Where the definition depends on 
whether the file is an input, output, or input-output file, alternate definitions are given; otherwise, a definition 
applies to input, output, and input-output files. 


"A’ Previous Reels/Units Unaffected 
Input Files 
All reels/units in the file prior to the current reel/unit are processed according to the standard reel/unit 


swap procedure, except those reels/units controlled by a prior CLOSE REEL/UNIT statement. If the cur- 
rent reel/unit is not the last in the file, the reels/units in the file following the current one are not processed. 
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Output Files: 


All reels/units in the file prior to the current reel/unit are processed according to the standard reel/unit 
swap procedure, except those reels/units controlled by a prior CLOSE REEL/UNIT statement. 


"B’ No Rewind of Current Reel 


The current reel/unit is left in its current position. 


°C’ Close File 


Input Files and Input-Output Files: 


If the file is positioned at the end and label records are specified for the file, the labels are processed 
according to the standard label convention. 


If label records are specified, the label records must be present. Label records that are not specified are 
ignored. 


Closing operations are executed. If the file is positioned at the end and label records are not specified 
for the file, label processing does not take place, but other closing operations are executed. If the file 
is positioned other than at the end, the closing operations are executed, but there is no ending label pro- 
cessing. 


UL.Output Files 


If label records are specified for the file, the labels are processed according to the standard label conven- 
tion. The behavior of the CLOSE statement when label records are specified but not present, or when 
label records are not specified but are present, is undefined. Closing operations are executed. If label 
records are not specified for the file, label processing does not take place, but other closing operations 
are executed. 


"Cl? CLOSE FILE 


The CLOSE operation marks the logical file as closed. 


°’D’ Reel/Unit Removal 


The current reel/unit is rewound and released to the system. However, the reel or unit may be accessed 
again, in its proper order of reels or units within the file, if a CLOSE statement without the REEL or 
UNIT phrase is subsequently executed for this file followed by the execution of an OPEN statement for 
the file. 


"E’ File Lock 


The logical file is marked so it cannot be reopened during execution of the program. If the file is a mass 
storage file, it is made a permanent file before being made unavailable. If the file is assigned to a tape 
device, the physical unit is made not ready. 
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°F’ Close Reel/Unit 


Input Files: 
The following operations take place: 


1. A reel/unit swap. 
2. The standard beginning reel/unit label procedure is executed. 


The next executed READ statement for that file makes available the next data record on the new 
reel/unit. 


Output Files 
The following operations take place: 


1. The standard ending reel/unit label procedure is executed. 
2. A reel/unit swap. 


3. The standard beginning reel/unit label procedure is executed. 


The next executed WRITE statement that references that file directs the next logical data record to 
the next reel/unit of the file. 


’G’ Rewind 
The current reel is positioned at its physical beginning. 


’H’ File Retention 


The association between the logical file and the physical file is retained. Subsequent reopening of the file 
may not require the operating system to search for the physical file. 
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*X’ Illegal 
This is an illegal combination of a CLOSE option and a file category. If the CLOSE statement specifies 
the REEL/UNIT phrase, the CLOSE statement has no effect, and the file is not closed. If the CLOSE 


statement does not specify the REEL/UNIT phrase, any optional disposition is ignored. but the file is 
closed. 


4. If a file is in the open mode when a STOP RUN statement is executed, when a CANCEL statement 
is executed for the program containing that file, or when an abnormal termination occurs, the action 
taken is to close the file as if a simple CLOSE statement had been executed. 

5. If the OPTIONAL phrase has been specified for the file in the FILE-CONTROL paragraph of the 
ENVIRONMENT DIVISION and the file is not present, the standard end-of-file processing is not per- 
formed for that file. 

6. If a CLOSE statement without the REEL or UNIT phrase has been executed for a file. no other state- 
ment (except the SORT or MERGE statements with the USING or GIVING phrases) that references 
that file can be executed, either explicitly or implicitly, unless an intervening OPEN statement for that 
file is executed. 

7. The WITH NO REWIND, FOR REMOVAL 


phrases have no effect at object time if they do not apply to the storage media on which the file es 
sides. 


8. The execution of a CLOSE statement has no effect upon the contents or the availability of the file 
record area. 
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COMPUTE 


The COMPUTE statement assigns to one or more data items the value of an arithmetic expression. 


General Format: 


ee a i A sent SES OSDSSTURSUAASESSERIN SS 


COMPUTE identifier-1 [ROUNDED] [,, identifier-2 [ROUNDED]] ... 


= arithmetic-expression [; ON SIZE ERROR imperative-statement } 


Syntax Rules: 


1. Identifiers that appear only to the left of = must refer to either an elementary numeric item or an 
elementary numeric edited item. 


General Rules: 


1. Additional rules and explanations relative to this statement are given in the appropriate paragraphs. 
Refer to Intermediate Data Item, ROUNDED Phrase, SIZE ERROR Phrase, Arithmetic Statements, 
Overlapping Operands, and Multiple Results in Arithmetic Statements in this section. 

2. An arithmetic expression consisting of a single identifier or literal provides a method of setting the 
values of identifier-1, identifier-2, and so forth, equal to the value of the single identifier or literal. 
(Refer to Arithmetic Expressions in this section.) 

3. If more than one identifier is specified for the result of the operation (those identifiers preceding the 
equal sign). the value of the arithmetic expression is computed, and the resultant value is then stored 
as the new value of each successive identifier, such as identifier-1, identifier-2, and so on. 
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COPY 


The COPY statement incorporates text from a library into a COBOL74 source program. 


COBOL74 libraries contain library texts that are available to the compiler for copying at compile time. The effect 
of the interpretation of the COPY statement is to insert text into the source program, where it is treated by the 
compiler as part of the source program. Other than the use of dollar options, (NEW, DELETE, MERGE, and 
so forth; refer to Section 11, COBOL74 Compiler Control), libraries must be created by means other than the 
COBOL74 compiler. 


Additionally, the COPY statement can replace all occurrences of a given literal, identifier, word or group of 
words in the library text, with alternate text. during the copying process. 


General Format: 


COPY | file-id [ ‘ or } multiile-d_| 


| 


( oo ee aes 

identifier-1 identifier-2 

REPLACING ) ° 9 titeral-1 | BY’ ) literal-2 | 
word-] word-2 | 


Syntax Rules: 


1. If more than one COBOL74 library is available during compilation, file-id must be qualified by the 
multi-file-id identifying the COBOL74 library in which the text associated with file-id resides. 


Within one COBOL74 library. each file-id must be unique. 


File-id specifies the external jMentification of a file in the COBOL74 library. 


Multi-file-id specifies the external identification of a volume-id, or directory-id, which is the name of 
the COBOL74 library. 


The statement must be precede y a space and terminated by the separator period. 

. Pseudo-text-! must not be null, may not consist solely of the character space(s) or of comment lines. 

. Pseudo-text-2 may be null. 

. Character-strings within pseudo-text-1 and pseudo-text-2 may be continued. However, both characters 
of a pseudo-text delimiter must be on the same line. For more details refer to Indicator Area for con- 
tinuation of lines, Section 3. 

6. Word-! or word-2 may be any single COBOL74 word. 

7. A COPY statement may occur in the source program anywhere a character-string or a separator may 

occur, except that a COPY statement must not occur within a COPY statement nor in the library text. 
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The compilation of a source program containing COPY statements is logically equivalent to processing 
all COPY statements prior to the processing of the resulting source program. 

The effect of processing a COPY statement is that the library text associated with file-id is copied 
into the source program, logically replacing the entire COPY statement, beginning with the reserved 
word COPY and ending with the punctuation character period, inclusive. 


. If the REPLACING phrase is not specified. the library text is copied unchanged. 


If the REPLACING phrase is specified, the library text is copied and each properly matched occur- 
rence of pseudo-text-1, identifier-1, word-1, and literal-1 in the library text is replaced by the corre- 
sponding pseudo-text-2, identifier-2, word-2, or literal-2. 


. For purposes of matching, identifier-!. word-!, and literal-1 are treated as pseudo-text containing only 


identifier-1, word-1, or literal-1. respectively. 


. The comparison operation that determines text replacement is explained in the following paragraphs. 


Any separator comma, semicolon and/or space(s) preceding the leftmost library text-word is copied 
into the source program. Starting with the leftmost library text-word and the first pseudo-text-1, iden- 
tifier-1, word-1, or literal-1 that was specified in the REPLACING phrase, the entire REPLACING 
phrase operand that precedes the reserved word BY is compared to an equivalent number of 
contiguous library text-words. 


Pseudo-text-1, identifier-!, word-1, or literai-l| match the library text only if, the ordered sequence 
of text-words that forms pseudo-text-1. identifier-1, word-1!, or literal-! is equal, character for charac- 
ter, to the ordered sequence of library text-words. For purposes of matching, each occurrence of a 
separator comma or semicolon in pseudo-text-! or in the library text is considered to be a single 
space, except when pseudo-text-| consists solely of either a separator comma or semicolon, in which 
case it participates in the match as a text-word. Each sequence of one or more space separators is 
considered to be a single space. 


If no match occurs, the comparison is repeated with each next successive pseudo-text-!, identifier- 
1, word-1!, or literal-1, if any. in the REPLACING phrase until either a match is found or there is 
no next successive REPLACING operand. 


When all the REPLACING phrase operands have been compared and no match has occurred, the 
leftmost library text-word is copied into the source program. The next successive library text-word 
is then considered as the leftmost library text-word, and the comparison cycle starts again with the 
first pseudo-text-!. identifier-1|. word-1, or literal-1 specified in the REPLACING phrase. 


Whenever a match occurs between pseuclo-text-!, identifier-!, word-1, or literal-! and the library text, 
the corresponding pseudo-text-2, identifier-2, word-2, or literal-2 is placed into the source program. 
The library text-word immediately following the rightmost text-word that participated in the match 
is then considered as the leftmost library text-word. The comparison cycle starts again with the first 
pseudo-text-!, identifier-l. word-!. or literal-1 specified in the REPLACING phrase. 
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The comparison operation continues until the rightmost text-word in the library text has either 
participated in a match or been considered as a leftmost library text-word and participated in a com- 
plete comparison cycle. 


6. A comment line occurring in the library text and pseudo-text-! is interpreted, for purposes of match- 
ing, as a single space. Comment lines appearing in pseudo-text-2 and library text are copied into the 
source program unchanged. 

7. Debugging lines are permitted within library text and pseudo-text-2. Debugging lines are not permitted 
within pseudo-text-1; text-words within a debugging line participate in the matching rules as if the *D’ 
did not appear in the indicator area. If a COPY statement is specified on a debugging line, then the 
text that is the result of the processing of the COPY statement appears as though it were specified 
on debugging lines with the following exception. Comment lines in library text appear as comment 
lines in the resultant source program. 

8. The text produced as a result of the complete processing of a COPY statement must not contain a 
COPY statement. 

9. The syntactic accuracy of the library text cannot be independently determined. The syntactic accuracy 
of the entire COBOL74 source program cannot be determined until all COPY statements have been 
completely processed. 

10. Library text must conform to the rules for COBOL74 reference format. 

11. For purposes of compilation, text-words, after replacement, are placed in the source program accord- 

mat. Refer to Fi iti g 


14. If file-id is specified and the optional multi-file-id and pack-id clauses are not present, the file-id is 
the internal name of the library text and the default external identification. 


Examples: 
The following items illustrate uses of the COPY statement. 
FD INV-FILE COPY ''MASTER/INVENTORY ON MYPACK''. 
FD PAYROLL COPY ''LASTYR/PAYROLL'' REPLACING ''1979'' BY ''1980!', 
COPY 'INPUTFILE!'. 
COPY ''MARYANN/FILE'' REPLACING ==(-A,B)== BY ==XYZ==, 


COPY ''THISFILE ON MYPACK'' REPLACING AAA BY INPUT-DATA. 
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The DELETE statement logically removes a record from a mass storage file. 


General Format: 


ett ee RN 


| DELETE file-name RECORD [; INVALID KEY imperative-statement ] | 


Syntax Rules: 


1. The INVALID KEY phrase must not be specified for a DELETE statement which references a file 
in sequential access mode. 

2. The INVALID KEY phrase must be specified for a DELETE statement which references a file not 
in sequential access mode and for which an applicable USE procedure is not specified. 

3. A DELETE statement cannot be used with a SORT or MERGE file or with a Sequential File. 


General Rules: 


1. The associated file must be open in the I-O mode at the time of the execution of the DELETE state- 
ment. Refer to the OPEN Statement in this section. 

2. For files in the sequential access mode, the last input-output statement executed for file-name prior 
to the execution of the DELETE statement must have been a successfully executed READ statement. 
The record that was accessed by that READ statement is logically removed from the file. 

3. For a file in random or dynamic access mode, if the file is Relative, the record identified by the 
Relative Key data item is deleted; if the file is Indexed, the record identified by the Prime Record 
Key is deleted. If the file does not contain the record specified by the key, an INVALID KEY condi- 
tion exists. Refer to the Invalid Key condition in Section 5. 

4. After the successful execution of a DELETE statement, the identified record has been logically re- 
moved from the file and can no longer be accessed. 

5. The execution of a DELETE statement does not affect the contents of the recofd area associated with 
file-name. 

6. The current record pointer is not affected by the execution of a DELETE statement. 

7. The execution of the DELETE statement causes the value of the specified FILE STATUS data item, 
if any, associated with file-name to be updated. Refer to I-O Status in Sectton 5. 
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DISABLE 


The DISABLE statement inhibits data transfer between the specified output queue and destinations for output 
or between specified sources and input queue for input. 


General Format: 


INPUT [ TERMINAL ] 


identifier-1 
DISABLE cd-name WITH KEY 
OUTPUT literal-1 


Syntax Rules: 


I. Cd-name must reference an input CD when the INPUT phrase is specified. 

2. Cd-name must reference an output CD when the OUTPUT phrase is specified. 

3. Literal-1 or the contents of the data item referenced by identifier-! must be defined as alphanumeric, 
containing at least 1 but not more then 10 characters. 


General Rules: 


1. The DISABLE INPUT <cd-name> statement provides a logical disconnection between the Data 
Communication Subsystem and the specified sources or destinations. When this logical disconnection 
is already in existence, or is to be handled by some other means external to this program, the 
DISABLE statement is not required in this program. The logical path for the transfer of data between 


the COBOL74 programs and the Data Communication Subsystem is not affected by the DISABLE 
statement. 


When the logical disconnection specified by the DISABLE statement is already in existence, is to 
be handled by some means external to this program, or is denied, the status key data item in the 


area referenced by CD-name is updated. Refer to Communication Description Structure (CD) in Sec- 
tion 6. 


2. When the INPUT phrase with the optional word TERMINAL is specified, input to a specific terminal 
is disabled. Only the contents of the data item referenced by data-name-7 (SYMBOLIC SOURCE) 
of the area referenced by cd-name are meaningful. 

3. When the INPUT phrase without the optional word TERMINAL is specified, the logical paths for 
all of the sources associated with the queue specified by the contents of data-name-1 (SYMBOLIC 
QUEUE) of the area referenced by cd-name are deactivated. 

4. When the OUTPUT phrase is specified, the logical path for destination, or the logical paths for all 
destinations, specified by the contents of the data item referenced by data-name-5 (SYMBOLIC DES- 
TINATION) of the data referenced by cd-name are deactivated. 

5. The KEY phrase provides a password facility. 


An additional area of interaction between the DISABLE and the Data Communication Subsystem is 
the password. Within the message is a 10-byte field which contains a character string. It is the option 
of an MCS (Message Control System), to compare the password specified by literal-1 or identifier- 
1 to a master password. The data referenced by literal-1 or identifier-1 is transferred to the MCS ac- 


cording to the rules of the MOVE statement. The password is received in an alphanumeric data item 
1 to 10 characters in length. 
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DISPLAY 
The DISPLAY statement causes low volume data to be transferred to an appropriate hardware device. 


General Format: 
identifier-| ) , identifier-2 
DISPLAY 


literal-] | 


, literal-2 


Syntax Rules: 


|. The mnemonic-name is associated with a hardware device in the SPECIAL-NAMES paragraph in the 
ENVIRONMENT DIVISION and must be associated with the hardware-name ODT. 

2. Each literal may be any figurative constant, except ALL. 

3. If the literal is numeric, then it must be an unsigned integer. 

. DISPLAY cannot use an item declared in the LINKAGE SECTION. 


n. 
—_ 


General Rules: 


. The DISPLAY statement causes the contents of each operand to be transferred to the hardware device 

in the order listed. 

2. The maximum number of characters that can be transmitted is unlimited. 

3. If a figurative constant is specified as one of the operands, only a single occurrence of the figurative 
constant is displayed. 

4. When a DISPLAY statement contains more than one operand, the size of the sending item is the sum 
of the sizes associated with the operands, and the values of the operands are transferred in the se- 
quence in which the operands are encountered. If the data transferred does not fit on one line, carriage 
returns and line feeds are supplied so that the data is extended to other lines of print. 

5. If the UPON phrase is not used, the device used is the ODT. 


DIVIDE 
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The DIVIDE statement divides one numeric data item into others and sets the values of data items equal to 
the quotient and remainder. 


General Formats: 


Format 1: 


Format 2: 


Format 3: 


1108883 


identifier-1 


DIVIDE INTO identifier-2 [ROUNDED ] 


literal-1 
[ ; identifier-3 [ROUNDED ]]... 


[ ; ON SIZE ERROR imperative-statement ] 


| identifier-1 BY ( identifier-2 
DIVIDE .« 


| titeral-1 INTO 4 Uliteral-2 
GIVING identifier-3 [ROUNDED ] 
[ , identifier-¢4 [ROUNDED ] }... 


[ ; ON SIZE ERROR imperative-statement | 


identifier-] BY identifier-2 
DIVIDE 
literal-] INTO literal-2 


GIVING identifier-3 [ROUNDED ] 
REMAINDER identifier-4 


[; ON SIZE ERROR imperative-statement ] 
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Syntax Rules: 


1. 


’ 
hee 


Each identifier must refer to an elementary numeric item, except that any identifier associated with 
the GIVING or REMAINDER phrase must refer to either an elementary numeric item or an elemen- 
tary numeric edited item. 

Each literal must be a numeric literal. 


General Rules: 


7-58 


1. 


6. 


Additional rules and explanations relative to this statement are given in the appropriate paragraphs. 
Refer to Intermediate Data Item, Arithmetic Statements, Overlapping Operands, and Multiple Results 
in Arithmetic Statements in Section 7. Also, refer to General Rules 4 through 6 below for a discussion 
of the ROUNDED phrase and the SIZE ERROR phrase as they pertain to Format 3. 


. When Format | is used, the value of identifier-2 is divided by either the value of identifier-1 or literal- 


1. The value of the dividend (identifier-2) is replaced by this quotient; and similarly for identifier-1 
or literal-1 and identifier-3, and so forth. 


. When Format 2 is used, the -value of identifier-1 or literal-1 is divided by the value of identifier-2 or 


literal-2, and the result is stored in identifier-3, identifier-4, and so on. 


. Format 3 is used when a remainder from the division Operation is desired, namely identifier-4. The 


remainder in COBOL74 is defined as the result of subtracting the product of the quotient (identifier- 
3) and the divisor from the dividend. If identifier-3 is defined as a numeric edited item, the quotient 
used to calculate the remainder is an intermediate field which contains the unedited quotient. If 
ROUNDED is used, the quotient used to calculate the remainder is an intermediate field which con- 
tains the quotient of the DIVIDE statement, truncated rather than rounded. 


. In Format 3, the accuracy of the REMAINDER data item (identifier-4) is defined by the calculation 


described above. Appropriate decimal alignment and truncation (not rounding) is performed for the 
content of the data item referenced by identifier-4, as needed. 
When the ON SIZE ERROR phrase is used in Format 3, the following rules pertain: 


a. If the size error occurs on the quotient, no remainder calculation is meaningful. The contents of 
the data items referenced by both identifier-3 and identifier-4 remain unchanged. 

b. If the size error occurs on the remainder, the contents of the data items referenced by identifier- 
4 remain unchanged. However, as with other instances of multiple results of arithmetic statements, 
the user is responsible for performing the necessary analysis to determine which situation has actu- 
ally occurred. 
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ENABLE 


The ENABLE statement allows data transfer between specified output queues and destinations for output or 
between specified sources and input queues for input. 


General Format: 


INPUT [TERMINAL ] 


ENABLE cd-name WITH KEY 


identifier-1! 


OUTPUT literal-] 


Syntax Rules: 


1. Cd-name must reference an input CD when the INPUT phrase is specified. 

2. Cd-name must reference an output CD when the OUTPUT phrase is specified. 

3. Literal-1 or the contents of the data item referenced by identifier-!1 must be defined as alphanumeric 
containing | to 10 characters, inclusive. 


General Rules: 


1. The ENABLE INPUT <cd-name> statement provides a logical connection between the Data Commu- 
nication Subsystem and the specified sources or destinations. When this logical connection is already 
in existence, or is to be handled by some other means external to this program, the ENABLE state- 
ment is not required. The logical path for the transfer of data between the COBOL74 programs and 
the Data Communication Subsystem is not affected by the ENABLE statement. 


When the logical connection specified by the ENABLE statement is already in existence, (only if a 
RECEIVE is done instead), or is to be denied, the status key data item in the area referenced by 
CD-name is updated. Refer to the Communication Description Structure (CD) in Section 6. 


2. The INPUT phrase with the optional word TERMINAL is used to ENABLE a previously disabled 
(DISABLE) terminal. Only the contents of the data item referenced by data-name-7 (SYMBOLIC 
SOURCE) of the area referenced by cd-name are meaningful. 

3. When the INPUT phrase without the optional word TERMINAL is specified, the logical paths for 
all of the sources associated with the queue specified by the contents of data-name-!1 (SYMBOLIC 
QUEUE) of the area referenced by cd-name are activated. 

4. When the OUTPUT phrase is specified, the logical path for destination, or the logical paths for all 
destinations, specified by the contents of the data item referenced by data-name-5 (SYMBOLIC DES- 
TINATION) of the area referenced by cd-name are activated. 

5. The KEY phrase provides a password facility. 


An additional area of interaction between the ENABLE and the Data Communication Subsystem is 
the password. Within the message is a 10-byte field which contains a character string. It is the option 
of the MCS (Message Control System), to compare the password specified by literal-1 or identifier- 
1 to a master password. The data referenced by literal-! or identifier-1 is transferred to the MCS ac- 
cording to the rules of the MOVE statement. The password is received in an alphanumeric data item 
of 1 to 10 characters in length. 
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EXIT 


The EXIT statement provides a means of documenting the logical end point for a series of sections or 
paragraphs that may be executed under the control of a PERFORM statement. 


General Format: 


Syntax Rules: 


|. The EXIT statement must appear in a sentence alone. 
2. The EXIT sentence must be the only sentence in the paragraph. 


General Rules: 


|. An EXIT statement serves only to enable the user to assign a procedure-name to a given point in 
a program. Such an EXIT statement has no other effect on the compilation or execution of the pro- 


gram. 
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The EXIT PROGRAM statement marks the logical end of a called program. 


General Format: 


L EXIT PROGRAM. | 


Syntax Rules: 


1. The EXIT PROGRAM statement must appear in a sentence alone. 
2. The EXIT PROGRAM sentence must be the only sentence in the paragraph. 


General Rules: 


1. An execution of an EXIT PROGRAM statement in a called program causes control to be passed to 


the calling program. If the program is not called, control passes through the EXIT PROGRAM state- 
ment to the first sentence of the next paragraph. 
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The GO TO statement causes control to be transferred from one part of the PROCEDURE DIVISION to an- 
other. 


General Format: 


Format 1: 


| GO TO [procedure-name-1 ] | 


et ee sae Ae NR SY St ET 


mn 


GO TO procedure-name-1 [. procedure-name-2 | ..., procedure-name-n 


DEPENDING ON identifier 


a A A NY 


Syntax Rules: 


1. Identifier is the name of a numeric elementary item described without any positions to the right of 
the assumed decimal point. 

2. When a paragraph is referenced by an ALTER statement, that paragraph can consist only of a 
paragraph header followed by a Format | GO TO statement. 

3. A Format | GO TO statement, without procedure-name-1, can only appear in a single statement 
paragraph. 

4. If a GO TO statement, represented by Format 1, appears in a consecutive sequence of imperative 
statements within a sentence, it must appear as the last statement in that sequence. 


General Rules: 


1. When a GO TO statement, represented by Format | is executed, control is transferred to procedure- 
name-1| or to another procedure-name if the GC TO statement has been modified by an ALTER state- 
ment. 

2. If procedure-name-I! is not specified in Format |, an ALTER statement, referring to the GO TO state- 
ment, must be executed prior to the execution of this GO TO statement. Otherwise, the program is 
abnormally terminated. 

3. When a Format 2 GO TO statement is executed, control is transferred to the procedure-name whose 
ordinal position in the list following the GO TO corresponds to the value of the identifier being 1, 


2, ..., n. If the value of the identifier is anything other than the positive or unsigned integers 1, 2, 
..., Nn, then no transfer occurs and control passes to the next statement in the normal sequence for 
execution. 
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The IF statement causes a condition to be evaluated. The subsequent action of the object program depends 
on whether the value of the condition is TRUE or FALSE. 


General Format: 


———e 


statement-] { ; ELSE statement-2 
IF condition ; 


NEXT SENTENCE | ; ELSE NEXT SEN TENCE) 


———— 


Syntax Rules: 


1. Statement-1 and statement-2 represent either an imperative statement or a conditional statement, and 
either may be followed by a conditional statement. 

2. The ELSE NEXT SENTENCE phrase may be omitted if it immediately precedes the terminal period 
of the sentence. 


General Rules: 
1. When an IF statement is executed, the following transfers of control occur: 


a. If the condition is TRUE, statement-1I is executed, if specified. If statement-1 contains a procedure 
branching or conditional statement, control is explicitly transferred in accordance with the rules 
of that statement. Refer to Categories of Statements in this section. If statement-1 does not contain 
a procedure branching or conditional statement, the ELSE phrase, if specified, is ignored and con- 
trol passes to the next executable sentence. 

b. If the condition is TRUE and the NEXT SENTENCE phrase is specified instead of statement- 
1, the ELSE phrase, if specified, is ignored and control passes to the next executable sentence. 

c. If the condition is FALSE, statement-! or NEXT SENTENCE is ignored, and statement-2, if spec- 
ified, is executed. If statement-2 contains a procedure branching or conditional statement, control 
is explicitly transferred in accordance with the rules of that statement. Refer to Categories of State- 
ments in this section. If-statement-2 does not contain a procedure branching or conditional state- 
ment, control passes to the next executable sentence. If the ELSE statement-2 phrase is not 
specified, statement-1 is ignored and control passes to the next executable sentence. 

d. If the condition is FALSE, and the ELSE NEXT SENTENCE phrase is specified, statement-| 
is ignored, if specified, and control passes to the next executable sentence. 


2. Statement-1 and/or statement-2 may contain an IF statement. In this case, the IF statement is nested. 
IF statements within IF statements may be considered as paired IF and ELSE combinations, proceed- 


ing from left to right. Thus, any ELSE encountered is considered to apply to the immediately preced- 
ing IF that has not been already paired with an ELSE. 
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INSPECT 


The INSPECT statement provides the ability to tally (Format 1), replace (Format 2), or tally and replace (For- 
mat 3) occurrences of single characters or groups of characters in a data item. 


General Formats: 


Format |: 
INSPECT identifier-] TALLYING 
ALL identifier-3) | aes 
, identifier-2 FOR (ceabined re t artery INITIAL jeenera\| 
CHARACTERS ) UtSETER isl 
Format 2: 


er A eR A A NC A AL A A A cree 


INSPECT identifier-1] REPLACING 


, = \ 
: tees identifier-6 BEFORE identifier-7 | 
CHARACTERS BY Viena ia preiare {itera 


ALL ek nee dentiti identifi 
| f Pexong | | fisemitonsy gy iemirs tas rma. {Menuer e 
( FIRST 


Format 3: 
INSPECT identifier-1 TALLYING 
ALL | identifier-3 F See tgs 
_identifier-2 FOR 2 ,) LEADING ieee brace, inmriaL { Mentiier4} | on eae, 
CHARACTERS as eek 
REPLACING 


CHARACTERS BY ae \ aaeR | INITIAL oe \) 


literal-4 AFTER literal-5 
| ALL 
LEADING 


FIRST 


identifier-5 identifier-6 BEFORE identitier-7 | 
qe \ py a \ arTeR \ INITIAL Fane ty, or ee | 
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Syntax Rules: 


All Formats 


1. Identifier-1 must reference either a group item or any category of elementary item, described (either 
implicitly or explicitly) as usage is DISPLAY. 

2. Identifier-3 ... identifier-n must reference either an elementary alphabetic, alphanumeric, or numeric 
item described (either implicitly or explicitly) as usage is DISPLAY. 

3. Each literal must be nonnumeric and may be any figurative constant, except ALL. 


Formats 1! and 3 only 


4. Identifier-2 must reference an elementary numeric data item. 


5. If either literal-1 or literal-2 is a figurative constant, the figurative constant refers to an implicit one 
character data item. 


Formats 2 and 3 only 


6. The size of the data referenced by literal-4 or identifier-6 must be equal to the size of the data refer- 
enced by literal-3 or identifier-5. When a figurative constant is used as literal-4, the size of the figura- 
tive constant is equal to the size of literal-3 or the size of the data item referenced by identifier-S. 

7. When the CHARACTERS phrase is used, literal-4, literal-5, or the size of the data item referenced 
by identifier-6, identifier-7 must be one character in length. 

8. When a figurative constant is used as literal-3, the data referenced by literal-4 or identifier-6 must be 
one character in length. 


General Rules: 


1. Inspection (which includes the comparison cycle, the establishment of boundaries for the BEFORE 
or AFTER phrase, and the mechanism for tallying and/or replacing) begins at the leftmost character 
position of the data item referenced by identifier-1, regardless of class, and proceeds from left to 
right to the rightmost character position as described in General Rules 4 through 6 which follow. If 
identifier-1 is signed, the sign character is not inspected. 

2. For use in the INSPECT statement, the contents of the data item referenced by identifier-1, identifi- 
er-3, identifier-4, identifier-5, identifier-6, or identifier-7 are treated as follows: 


a. If any of identifier-1, identifier-3, identifier-4, identifier-5, identifier-6, or identifier-7 is described 
as alphanumeric, the INSPECT statement treats the contents of each such identifier as a charac- 
ter-string. 

b. If any of identifier-1, identifier-3, identifier-4, identifier-5, identifier-6, or identifier-7 is described 
as alphanumeric edited, numeric edited or unsigned numeric, the data item is inspected as though 
redefined as alphanumeric (refer to General Rule 2a) and the INSPECT statement had been writ- 
ten to reference the redefined data item. 

c. If any of identifier-1, identifier-3, identifier-4, identifier-5, identifier-6, or identifier-7 is described 
as signed numeric, the sign character of the data item is not inspected. 


3. In General Rules 4 through 11 all references to literal-1, literal-2, literal-3, literal4, and literal-5 apply 
equally to the contents of the data items referenced by identifier-3, identifier-4, identifier-5, identifier- 
6, and identifier-7, respectively. 

4. During inspection of the contents of the data item referenced by identifier-1, each properly matched 
occurrence of literal-1! is tallied (Formats 1 and 3) and/or each properly matched occurrence of literal- 
3 is replaced by literal-4 (Formats 2 and 3). 
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5. The comparison operation, to determine the occurrences of literal-! to be tallied and/or occurrences 
of literal-3 to be replaced, occurs as follows: 


a. 


The operands of the TALLYING and REPLACING phrases are considered in the order specified 
in the INSPECT statement from left to right. The first literal-1, literal-3 is compared to an equal 
number of contiguous characters, starting with the leftmost character position in the data item 
referenced by identifier-|. Literal-1, literal-3 and that portion of the contents of the data item ref- 
erenced by identifier-! match only if equal, character for character. 


. If no match occurs in the comparison of the first literal-1, literal-3, the comparison is repeated 


with each successive literal-1, literal-3, if any, until either a match is found or there is no next 
successive literal-1, literal-3. When there is no next successive literal-1, literal-3, the character 
position in the data item referenced by identifier-1 immediately to the right of the leftmost charac- 
ter'position considered in the last comparison cycle is considered as the leftmost character posi- 
tion, and the comparison cycle begins again with the first literal-1, literal-3. 


. Whenever a match occurs, tallying and/or replacing takes place as described in General Rules 8 


through 10. The character position in the data item referenced by identifier-1, immediately to the 
right of the rightmost character position that participated in the match, is now considered to be 
the leftmost character position of the data item referenced by identifier-!.:The comparison cycle 
Starts again with the first literal-1, literal-3. 


. The comparison operation continues until the rightmost character position of the data item refer- 


enced by identifier-! has participated in a match or has been considered as the leftmost character 
position. When this occurs, inspection is terminated. 


. If the CHARACTERS phrase is specified, an implied one character operand participates in the 


cycle described in steps Sa through 5d above, except that no comparison to the contents of the 
data item referenced by identifier-! takes place. This implied character is always considered to 
match the leftmost character of the contents of the data item referenced by identifier-1 participat- 
ing in‘the current comparison cycle. 


6. The comparison operation defined in General Rule 5 is affected by the BEFORE and AFTER phrases 
as follows: 
a. If the BEFORE or AFTER phrase is not specified, literal-1, literal-3 or the implied operand of 


the CHARACTERS phrase participates in the comparison operation as described in General Rule 
5 


. If the BEFORE phrase is specified, the associated literal-1, literal-3 or the implied operand of 


the CHARACTERS phrase participates only in those comparison cycles which involve that por- 
tion of the contents of the data item referenced by identifier-! from the leftmost character position 
up to, but not including, the first occurrence of literal-2, literal-5 within the contents of the data 
item referenced by identifier-1. The position of this first occurrence is determined before the first 
cycle of the comparison operation described in General Rule 5 is begun. If, on any comparison 
cycle, literal-1, literal-3 or the implied operand of the CHARACTERS phrase is not eligible to 
participate, it is considered not to match the contents of the data item referenced by identifier- 
1. If there is no occurrence of literal-2, literal-5 within the contents of the data item referenced 
by identifier-1, the associated literal-1, literal-3, or the implied operand of the CHARACTERS 
phrase participates in the comparison operation as though the BEFORE phrase had not been 
specified. 


B 1000 Systems COBOL74 Reference Manual 
Procedure Division 


INSPECT 


Example: 


Assume that identifier-1 contains ABCDEFGH. 


Phrase Range of Inspection 
none A through H 
BEFORE ‘‘G”’ A through F 
BEFORE ‘‘DEF’”’ A through C 
BEFORE ‘‘FGE’’ A through H 
BEFORE ‘‘A”’ Null 


c. If the AFTER phrase is specified, the associated literal-1, literal-3 or the implied operand of the 
CHARACTERS phrase may participate only in those comparison cycles which involve that por- 
tion of the contents of the data item referenced by identifier-1 from the character position immedi- 
ately to the right of the rightmost character position of the first occurrence of literal-2, literal- 
5, within the contents of the data item referenced by identifier-1 and the rightmost character posi- 
tion of the data item referenced by identifier-1. The position of this first occurrence is determined 
before the first cycle of the comparison operation described in General Rule 5 is begun. If, on 
any comparison cycle, literal-1, literal-3 or the implied operand of the CHARACTERS phrase is 
not eligible to participate, it is considered not to match the contents of the data item referenced 
by identifier-1. If there is no occurrence of literal-2, literal-S within the contents of the data item 
referenced by identifier-!, the associated literal-1, literal-3, or the implied operand of the CHAR- 
ACTERS phrase is never eligible to participate in the comparison operation. 


Example: 


Assume that identifier-1 contains ABCDEFGH. 


Phrase Range of Inspection 
none A through H 
AFTER ‘‘C”’ D through H 
AFTER ‘‘BCD”’ E through H 
AFTER ‘‘DCE”’ Null 
AFTER ‘‘H”’ Null 


Format 1: 


7. The contents of the data item referenced by identifier-2 are not initialized by the execution of the 
INSPECT statement. 
8. The rules for tallying are as follows: 


a. If the ALL phrase is specified, the contents of the data item referenced by identifier-2 are incre- 
mented by 1 for each occurrence of literal-1 matched within the contents of the data item refer- 
enced by identifier-1. 


INSPECT word TALLYING count FOR ALL ‘*BA”’. 


word BARBARA count 


word HBAABCT count = 1 
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b. If the LEADING phrase is specified, the contents of the data item referenced by identifier-2 are 
incremented by | for each contiguous occurrence of literal-1 matched within the contents of the 
data item referenced by identifier-!, provided that the leftmost such occurrence is at the point 
where comparison began in the first comparison cycle in which literal-! was eligible to participate. 


INSPECT word TALLYING count-| FOR LEADING ‘‘N’’? BEFORE INITIAL ‘‘O’’, count-2 
FOR LEADING ‘‘A’’? BEFORE INITIAL ‘‘R”’. 


word == PATTERSON count-1 
word = MCKINNON count-1 


0 count-2 = | 
2 count-2 0 


c. If the CHARACTERS phrase is specified, the contents of the data item referenced by identifier- 
2 are incremented by 1 for each character matched (refer to General Rule 5e) within the contents 
of the data item referenced by identifier-1. 


INSPECT word TALLYING count FOR CHARACTERS. 


word = KOMP count = 4 
word HARRINGTON count = 10 


Format 2: 


9. The required words ALL, LEADING, and FIRST are adjectives that apply to each succeeding BY 
phrase until the next adjective appears. 
10. The rules for replacement are as follows: 


a. When the CHARACTERS phrase is specified, each character matched (refer to General Rule Se) 
in the contents of the data item referenced by identifier-1 is replaced by literal-4. 


INSPECT word REPLACING CHARACTERS BY ‘‘M”’. 


word = MMMGOOD count = MMMMMMM 
word KOUNT210 count = MMMMMMMM 


b. When the adjective ALL is specified, each occurrence of literal-3 matched in the contents of the 
data item referenced by identifier-! is replaced by literal-4. 


INSPECT word REPLACING ALL ‘‘R”’ BY ‘‘Z’? BEFORE INITIAL ‘“‘B’’. 


ROBERTS after -= ZOBERTS 
RCHRBR after == ZCHZBR 


word 
word 


c. When the adjective LEADING is specified, each contiguous occurrence of literal-3 matched in 
the contents of the data item referenced by identifier-1 is replaced by literal-4+, provided that the 
leftmost occurrence is at the point where comparison began in the first comparison cycle in which 
literal-3 was eligible to participate. 
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INSPECT word REPLACING LEADING ‘‘S”’ BY ‘‘X’’ AFTER INITIAL ‘‘O’’. 


SPORTS after = SPORTX 
CROSS after = CROXX 


word 
word 


d. When the adjective FIRST is specified, the leftmost occurrence of literal-3 matched within the 
contents of the data item referenced by identifier-1 is replaced by literal-4. 


INSPECT word REPLACING FIRST ‘‘A”’ BY ‘‘S”’. 


word = ABCA after = SBCA 
word = TVANAR after TVSNAR 


Format 3: 


11. A Format 3 INSPECT statement is interpreted and executed as though two successive INSPECT 
statements specifying the same identifier-! had been written: one statement is a Format | statement 
with TALLYING phrases identical to those specified in the Format 3 statement. The other statement 
is a Format 2 statement with REPLACING phrases identical to those specified in the Format 3 state- 
ment. The general rules given for matching and counting apply to the Format 1 statement; the general 
rules given for matching and replacing apply to the Format 2 statement. 


Examples: 


INSPECT word TALLYING count-! FOR LEADING ‘‘L’’ BEFORE INITIAL ‘‘A’’, count-2 FOR LEAD- 
ING ‘‘A’’? BEFORE INITIAL ‘‘L’’. 


— 


count-2 = 0 
count-2 = 1 


word = LARGE count-1 = 
word = ANALYST count-1 = 


| 
a) 


INSPECT word TALLYING count FOR ALL ‘“‘L’’, REPLACING LEADING ‘‘A”’ BY ‘‘E’”? AFTER 
INITIAL ‘“‘L’’. 


word = CALLAR count = 2 after = CALLAR 
word = SALAMI count = | after = SALEMI 
word = LATTER count = I after = LETTER 


INSPECT word REPLACING ALL ‘‘A”’ BY ‘‘G”? BEFORE INITIAL ‘‘X’’. 


GRXAX 
HGNDGX 


word = ARXAX after 
word = HANDAX after 


II 
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INSPECT word TALLYING count FOR CHARACTERS AFTER INITIAL ‘‘J’’ REPLACING ALL ‘‘A”’ BY 
Be. 


word 


= ADJECTIVE count = 6 after = BDJCTIVE 
word = JACK count = 3 after = JBCK 
word = JUJMAB count = 5 after = JUJMBB 


INSPECT word REPLACING ALL ‘‘X”’ BY ‘‘Y’’, ‘’B”’? BY ‘“‘Z’’, ‘““W” BY ‘“‘Q”? AFTER INITIAL “R’’. 


word = RXXBQWY after = RYYZQQY 
word = YZACDWBR after = YZACDWZR 
word = RAWRXEB after = RAQRYEZ 


INSPECT word REPLACING CHARACTERS BY ‘‘B’’ BEFORE INITIAL ‘‘A’’. 


before: 


12 X ZA 
after: BBBBBA 


INSPECT word REPLACING ALL ‘‘S’’ BY ‘‘H’’, ‘‘B’’ BY ‘‘A’’, ‘‘P”? BY “‘L’’, “C” BY “E”’. 


HALE 
HOLLOWLOG 


SBPC after 
HOPPOWPOG after 


word 
word 


WW 
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The MERGE statement combines two or more files on a set of specified keys. and during the process makes 
records available. in merged order. to an output procedure or an output file. 


General Format: 


MERGE file-name-] 


ASCENDING 
ON KEY data-name-] [ , data-name-2] ... 
DESCENDING 


ASCENDING 
ON KEY data-name-3 Ls data-name-4 | ape 
DESCENDING 


[ COLLATING SEQUENCE IS alphabet-name | 


PURGE PURGE PURGE 
USING file-name-2 — , file-name-3 — , file-name-4 ee dota 
anc RELEASE 4 | RELEASE | RELEASE \ 


j THROUGH | 
OUTPUT PROCEDURE IS procedure-name-! | procedure-name-2 


| THRU 


GIVING _ file-name-5 


Syntax Rules: 


|. File-name-1 must be described in a sort-merge file description (SD) entry in the DATA DIVISION. 

2. Procedure-name-! represents the name of an output procedure. 

3. File-name-2. file-name-3. file-name-4, and file-name-5 must be described in a file description entry 
(FD). not in a sort-merge file description entry (SD). in the DATA DIVISION. The actual size of the 
logical record(s) described for file-name-2. file-name-3. file-name-4, and file-name-5 must be equal to 
the actual size of the logical record(s) described for file-name-1. If the data descriptions of the elemen- 
tary items that make up these records are not identical, it is the programmer's responsibility to de- 
scribe the corresponding records in such a manner so as to cause an equal number of character posi- 
tions to be allocated for the corresponding records. 

4. The words THRU and THROUGH are equivalent. 

5. Data-name-1, data-name-2, data-name-3. and data-name-4 are KEY data-names and are subject to the 
following rules: 


a. The data items identified by KEY data-names must be described in records associated with file- 
name-1. 
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b. KEY data-names may be qualified. 

. The data items identified by KEY data-rames must not be variable length items. 

d. If file-name-! has more than one record description, then the data items identified by KEY data- 
names may all be described within one of the record descriptions or in any combination of record 
descriptions. It is not necessary to redescribe the KEY data-names in each record description. 

e. None of the data items identified by KEY data-names can be described by an entry which either 
contains an OCCURS clause or is subordinate to an entry which contains an OCCURS clause. 


QO 


-. No more than one file-name from a multiple file reel can appear in the MERGE statement. 
. File-names must not be repeated within the MERGE statement. 
8. 


MERGE statements may appear anywhere except in the Declarative portion of the PROCEDURE DI- 
VISION or in an input or output procedure associated with a SORT or MERGE statement. 
As many as eight file-names may be specified in the USING clause. 


Rules: 
The MERGE statement merges all records contained on file-name-2, file-name-3, and file-name-4. The 


files referenced in the MERGE statement must not be open at the time the MERGE statement is 
executed. These files are automatically opened and closed by the MERGE operation with all implicit 


functions performed, such as the execution of any associated USE procedures. The terminating func- 


tion for all files is performed as if a CLOSE statement, without optional phrases, had been executed 
for each file. 


. The data-names following the word KEY are listed from left to right in the MERGE statement in order 


of decreasing significance without regard to division into KEY phrases. In the format, data-name-| 
is the major key. data-name-2 is the next most significant key, and so forth. 


a. When the ASCENDING phrase is specified, the merged sequence will be from the lowest value 
of the contents of the data items identified by the KEY data-names to the highest value, according 
to the rules for comparison of operands in a relation condition. 

b. When the DESCENDING phrase is specified, the merged sequence will be from the highest value 
of the contents of the data items identified by the KEY data-names to the lowest value, according 
to the rules for comparison of operands in a relation condition. 


. The collating sequence that applies to the comparison of the nonnumeric key data items specified is 


determined in the following order of precedence: 


a. First, the collating sequence established by the COLLATING SEQUENCE phrase, if specified, 
in that MERGE statement. 
b. Second, the collating sequence established as the program collating sequence. 


. The output procedure must consist of one cr more paragraphs or sections that appear contiguously 


in a source program and do not form a part cf any other procedure. In order to make merged records 
available for processing. the output procedure must include the execution of at least one RETURN 
statement. Control must not be passed to the output procedure except when a related SORT or 
MERGE statement is being executed. The cutput procedure may consist of any procedures needed 
to select. modify. or copy the records that are being returned one at a time in merged order. from 
file-name-|. 
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The restrictions on the procedural statements within the output procedure are as follows: 


a. The output procedure must not contain any transfers of control to points outside the output proce- 
dure. ALTER. GO TO, and PERFORM statements in the output procedure are not permitted to 
refer to procedure-names outside the output procedure. COBOL74 statements that cause an implied 
transfer of control to declaratives are allowed. 

b. The output procedures must not contain any SORT or MERGE statements. 

c. The remainder of the PROCEDURE DIVISION must not contain any transfers of control to points 
inside the output procedures. ALTER. GO TO, and PERFORM statements in the remainder of 
the PROCEDURE DIVISION are not permitted to refer to procedure-names within the output pro- 
cedures. 


5. If an output procedure is specified, control passes to it during execution of the MERGE statement. 
The compiler inserts a return mechanism at the end of the last paragraph or section in the output 
procedure. When control passes the last statement in the output procedure, the return mechanism pro- 
vides for termination of the merge, and then passes control to the next executable statement after the 
MERGE statement. Before entering the output procedure. the merge procedure reaches a point at 
which it can select the next record in merged order when requested. The RETURN statements in the 
output procedure are the requests for the next record. 

6. If the GIVING phrase is specified. all the merged records in file-name-! are automatically written on 
file-name-5 as the implied output procedure for this MERGE statement. 

7. When, according to the rules for the comparison of operands in a relation condition. the contents of 
all the key data items of one data record are equal to the contents of the corresponding key data items 
of one or more other data records. the order of return of these records: 


a. Follows the order of the associated input files as specified in the MERGE statement. 
b. Is such that all records associated with one input file are returned prior to the return of records 
from another input file. 


8. When the records in the files referenced by file-name-2. file-name-3, ... are not ordered as described 
in the ASCENDING or DESCENDING KEY clauses. MERGE takes place as previously described 
but with all improperly ordered data records being placed on the output file or returned to the output 
procedure immediately after being read from respective input files. As a result, when such a condition 
exists, the output from the MERGE statement is not in a strict ASCENDING or DESCENDING KEY 
order. 
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MOVE 
The MOVE statement transfers data, in accordance with the rules of editing. to one or more data areas. 


General Format: 


Format 1: 


literal 


ee A SR RN i hee ss eee NANA hs th nen neste Ae A A 


MOVE identifier- |} TO identifier-2 & identifier-3 | se ; 


Format 2: 


CORRESPONDING cone Stes: 
MOVE { CORR. \ identifier-! TO identifier-2 j 
Syntax Rules: 
1. Identifier-1 and literal represent the sending area; identifier-2. identifier-3. .... represent the receiving 


area. 

CORR is an abbreviation for CORRESPONDING. 

. When the CORRESPONDING phrase is used. both identifiers must be group items. 

. An index data item cannot appear as an operand of a MOVE statement. Refer to the USAGE clause 
in Section 6. 


kWh 


General Rules: 


|. If the CORRESPONDING phrase is used. selected items within identifier-1 are moved to selected 
items within identifier-2, according to the rules given in the CORRESPONDING phrase. The results 
are the same as if the user had referred to each pair of corresponding identifiers in separate MOVE 
statements. 

2. The data designated by the literal or identifier-1 is moved first to identifier-2. then to identifier-3. and 
so on. The rules governing identifier-2 also apply to the other receiving areas. Any subscripting or 
indexing associated with identifier-2, ...$, is evaluated immediately before the data is moved to the 
respective data item. 


Any subscripting or indexing associated with identifier-| is evaluated only once, immediately before 
data is moved to the first of the receiving operands. The result of the statement: 
MOVE a (b) TO b, c (b) 


is equivalent to: 


MOVE a (b) TO temp 
MOVE temp TO b 
MOVE temp TO c (b) 
Temp is an intermediate result item provided by the compiler. 
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3. Any MOVE in which the sending and receiving items are both elementary items is an elementary 
move. Every elementary item belongs to one of the following categories: numeric, alphabetic, alphanu- 
meric, numeric edited, alphanumeric edited. These categories are described in the PICTURE clause 
in Section 6. Numeric literals belong to the category numeric, and nonnumeric literals belong to the 
category alphanumeric. The figurative constant ZERO belongs to the category numeric. The figurative 
constant SPACE belongs to the category alphabetic. All other figurative constants belong to the 
category alphanumeric. 


The following rules apply to an elementary move between the categories: 


a. 


b. 


The figurative constant SPACE, a numeric edited, alphanumeric edited, or alphabetic data item 
must not be moved to a numeric or numeric edited data item. 

A numeric literal, the figurative constant ZERO, a numeric data item or a numeric edited data item 
must not be moved to an alphabetic data item. 


. A noninteger numeric literal or a noninteger numeric data item must not be moved to an alphanu- 


meric or alphanumeric edited data item. 


. All other elementary moves are legal and are performed according to the rules given in General 


Rule 4. 


4. Any necessary conversion of data from one form of internal representation to another takes place dur- 
ing legal elementary moves, along with any editing specified for the receiving data item: 


a. 


b. 


1108883 


When an alphanumeric edited or alphanumeric item is a receiving item, alignment and any neces- 
sary space filling takes place as defined under Standard Alignment Rules in Section 2. If the size 
of the sending item is greater than the size of the receiving item, the excess characters are trun- 
cated on the right after the receiving item is filled. If the sending item is described as being signed 
numeric, the operational sign is not moved. If the operational sign occupied a separate character 
position (refer to the SIGN clause in Section 6), that character is not moved and the size of the 
sending item is considered to be one less than the actual size (in terms of standard data format 
characters). 

When a numeric or numeric edited item is the receiving item, alignment by decimal point and any 
necessary zero-filling takes place as defined under the Standard Alignment Rules, except where 
zeroes are replaced because of editing requirements. 


1) When a signed numeric item is the receiving item, the sign of the sending item is placed in 
the receiving item. Refer to the SIGN clause in Section 6. Conversion of the representation 
of the sign takes place as necessary. If the sending item is unsigned, a positive sign is generated 
for the receiving item. 

2) When an unsigned numeric item is the receiving item, the absolute value of the sending item 
is moved and no operational sign is generated for the receiving item. 

3) When a data item described as alphanumeric is the sending item, data is moved as if the sending 
item were described as an unsigned numeric integer. 


>. When a receiving field is described as alphabetic, justification and any necessary space-filling takes 


place as defined under the Standard Alignment Rules. If the size of the sending item is greater 
than the size of the receiving item, the excess characters are truncated on the right after the receiv- 
ing item is filled. 
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5. Any move that is not an elementary move is treated exactly as if it were an alphanumeric to alphanu- 
meric elementary move, except that there is no conversion of data from one form of internal represen- 
tation to another. In such a move, the receiving area is filled without consideration for the individual 
elementary or group items contained within either the sending or receiving area, except as noted in 
General Rule 4 of the OCCURS clause in Section 6. 

6. The validity of the various types of MOVE statements is summarized in Table 7-4. The general rule 
reference (for example, 4c) indicates the rule that prohibits the move or the behavior of a valid move. 


Table 7-4. A Valid MOVE Statement 


Category of Receiving Data Item 


Category of Alphanumeric Numeric Integer 
Sending Alphabetic Edited Numeric Noninteger 
Data Item Numeric Edited 
Alphanumeric 
ALPHABETIC Yes/4c 2. Yes/4a Noa 
ALPHANUMERIC Yes/4a Yes/4b 
ALPHANUMERIC EDITED a Yes/4a No/3a 
INTEGER Yes/4a Yes/4b 
NUMERIC a 

NONINTEGER = No/c Yes/4b 
Yes/4a No/3a 


VALID MOVE COMBINATIONS 


Figure 7-1 shows the valid combinations of sending and receiving fields permitted in COBOL74. 
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RECEIVING DISPLAY NUMERIC CMP NUMERIC 


SENDING 


DISPLAY INTEGER 
NUMERIC 
(DNOR LIT) | REAL 


a — also non-numeric literal 


b — also undigit literal 


NON-NUMERIC | NUMERIC | LEFT 
MOVE MOVE JUST. | DECIMAL 


PROPER ZONES 
STRIPPED OR 
SUPPLIED BY 
INTERPRETER 


SENDING 
ZONES 
STRIPPED 


EDITING 
PERFORMED 


Figure 7-1. Valid MOVE Statement Combinations 
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The MULTIPLY statement causes numeric data items to be multiplied and sets the values of data items equal 
to the results. 


General Format: 


Format I: 
MULTIPLY 4 ‘entifier-lt By identifier-2 [ROUNDED] 
——— literal-1 = rn aca caa 
[. identifier-3 [ROUNDED] | ee [-ON SIZE ERROR imperative-statement ] 
Format 2: 


MULTIPLY § identifier] py eae GIVING identifier-3. [ROUNDED | 
———— literal-] = literal-2 ae a paar 


‘ identifier-4 [ROUNDED] | er [ - ON SIZE | RROR imperative-statement ] 


Syntax Rules: 


1. Each identifier must refer to a numeric elementary item, except that in Format 2 each identifier fol- 
lowing the word GIVING must refer to either an elementary numeric item or an elementary numeric 
edited item. 

2. Fach literal must be a numeric literal. 

3. The composite of operands, determined by superimposing all receiving data items of a given state- 
ment, aligned on decimal points, must not exceed 18 digits. 


General Rules: 


1. Refer to ROUNDED Phrase, SIZE ERROR Phrase. Arithmetic Statements, Overlapping Operands, 
and Multiple Results in Arithmetic Statements in this section for additional rules and information. 

2. When Format ! is used; the value of identifier-1 or literal-1 is multiplied by the value of identifier- 
2. The value of the multiplier (identifier-2) is replaced by this product; similarly for identifier-1 or liter- 
al-l and identifier-3, and so forth. 

3. When Format 2 is used, the value of identifier-1 or literal-1 is multiplied by identifier-2 or literal-2 
and the result is stored in identifier-3, identifier-4, and so on. 
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The OPEN statement initiates the processing of files. It also performs checking and/or writing of labels and 
other input-output operations. 


General Format: 


INPUT file-name-1 REVERSED 
WITH NO REWIND 


. file-name-2 RS 


LJ 


WITH NO REWIND 
OUTPUT filename-3 [WITH NO REWIND] 
OPEN |, file-rname-4 [WITH NO REWIND] ] 


I-O file-name-5 : 

{ , file-name-6 
EXTEND file-name-7 
file-name-8 


oS ee 


Syntax Rules: 


1. The REVERSED and the NO REWIND phrases can only be used with sequential files. Refer to CLOSE 
in this section for additional information. 

2. The I-O phrase can be used only for mass storage files. 

3. The EXTEND phrase can be used only for sequential files. 

4. The EXTEND phrase must not be specified for multiple file reels. Refer to the I-O-CONTROL 
Paragraph in Section 5. 

5. The files referenced in the OPEN statement need not all have the same organization or access. 


General Rules: 


1. The successful execution of an OPEN statement determines the availability of the file and results in the 
file being in an open mode. 

2. The execution of an OPEN statement does not affect either the contents or availability of the file’s rec- 
ord area. 
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3. When a given file is not in an open mode, no statement (except for a SORT or MERGE statement with 
the USING or GIVING phrases) that references that file, either explicitly or implicitly, can be executed. 

4. An OPEN statement must be successfully executed prior to the execution of any of the permissible input- 
output statements. In Table 7-5, I, R, or S at an intersection indicates that the specified statement, used 
in the access mode given for that row, may be used with the corresponding file organization and open 
mode given at the top of the column. 
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Table 7-5. Permissible Statements 


File Access 
Mode 


READ 
WRITE 
REWRITE 
START 
DELETE 


READ 
WRITE 
REWRITE 
START 
DELETE 


READ 
WRITE 
REWRITE 
START 
DELETE 


Sequential 


Random 


Dynamic 


The letters |, R, and S have the following meanings: 


| = tndexed 
R = Relative 
S = Sequential 


5. A file may be opened with the INPUT, OUTPUT, EXTEND. and I-O phrases in the same program. 
Following the initial execution of an OPEN statement for a file, each subsequent OPEN statement 
execution for that same file must be preceded by the execution of a CLOSE statement. without the 
REEL, UNIT, or phrase, for that file. 

. Execution of the OPEN statement does not obtain or release the first data record. 

7. If label records are specified for the file, the beginning labels are processed as follows: 


oe 


a. When the INPUT phrase is specified, the execution of the OPEN statement causes the labels to 
be checked in accordance with conventions for input label checking. 

b. When the OUTPUT phrase is specified, the execution of the OPEN statement causes the labels 
to be written in accordance with conventions for output label writing. 


If label records are not specified, it is possible by operator intervention to equate the file to one 
with labels, in which case the label records are ignored. 


8. The file description entry for file-name-!, file-name-2, file-name-5, file-name-6, file-name-7. or file- 
name-8 must be equivalent to that used when this file was created. 
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9. If an input file is designated with the OPTIONAL phrase in the SELECT clause, the object program 
causes an interrogation for the presence or absence of this file. If the file is not present. the first 
READ statement for this file causes the AT END condition to be executed only when the operator 
has responded with an ‘‘OF’’ system message. Refer to the READ Statement in this section. 

10. The REVERSED and NO REWIND phrases can only be used with sequential single reel/unit files. 
Refer to CLOSE in this section. 

It. The REVERSED and WITH NO REWIND phrases are ignored if they do not apply to the storage 
media on which the file resides. 

12. If the storage media for the file permits rewinding, the following rules apply: 


a. When neither the REVERSED, the EXTEND, nor the NO REWIND phrase is specified, execution 
of the OPEN statement causes the file to be positioned at the beginning. 

b. When the NO REWIND phrase is specified, execution of the OPEN statement does not cause the 
file to be repositioned; the file must be already positioned at the beginning prior to execution of 
the OPEN statement. 

c. When the REVERSED phrase is specified, the file is positioned at the end by execution of the 
OPEN statement. 


13. When the REVERSED phrase is specified, the subsequent READ statements for the file make the 
data records of the file available in reversed order starting with the last record. 

14. For files being opened with the INPUT or I-O phrase, the OPEN statement sets the current record 
pointer to the first record currently existing within the file. For indexed files, the prime record key 
is established as the key of reference and is used to determine the first record to be accessed. If no 
records exist in the file, the current record pointer is set such that the next executed Format | READ 
statement for the file results in an AT END condition. 

15. When the EXTEND phrase is specified, the OPEN statement positions the file immediately following 
the last logical record of that file. Subsequent WRITE statements referencing the file will add records 
to the file as though the file had been opened with the OUTPUT phrase. 

16. When the EXTEND phrase is specified and the LABEL RECORDS clause indicates label records are 
present, the execution of the OPEN statement includes the following steps: 


a. The beginning file labels are processed only in the case of a single reel unit file. 

b. The beginning reel/init labels on the last existing reel/unit are processed as though the file was 
being opened with the INPUT phrase. 

c. The existing ending file labels are processed as though the file is being opened with the INPUT 
phrase. These labels are then deleted. 

d. Processing then proceeds as though the file had been opened with the OUTPUT phrase. 


17. The I-O phrase permits the opening of a mass storage file for both input and output operations. Since 
this phrase implies the existence of the file, it cannot be used if the mass storage file is being initially 
created. 

18. When the I-O phrase is specified and the LABEL RECORDS clause indicates label records are pres- 
ent, the execution of the OPEN statement includes the following steps: 


a. The labels are checked in accordance with conventions for input-output label checking. 
b. The new labels are written in accordance with conventions for input-output label writing. 


19. Upon successful execution of an OPEN statement with the OUTPUT phrase specified, a file is cre- 
ated. At that time the associated file contains no data records. 
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The PERFORM statement is used to transfer control explicitly to one or more procedures and to return control 
implicitly whenever execution of the specified procedure is complete. 


General Format: 


Format 1: 


THROUGH l 


procedure-name-2 


PERFORM procedure-name-1 
THRU I 


a TE 


Format 2: 


j HEROwCu ( identifier-| 
PERFORM procedure-name- 1! 


procedure-name-2 
integer-] 


| THRU 


Format 3: 


ee 
PERFORM procedure-name-1 procedure-name-2 UNTIL condition-1 


| THRU 
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Format 4: 


ne 


F ( THROUGH 
PERFORM procedure-name-] | } procedure-name-2 
| \ THRU 
j identifier-2 | identifier-3 
VARYING FROM jindexname2 
\ index-name-1) literal-] 
{ identifier-4 
BY UNTIL condition-1 
lhiteral-2 


{ identifier-5 | identifier-6 
AFTER > FROM < index-name-4 


] index-name-3 \ literal-3 


identifier-7 
literal-4 


UNTIL condition-2 
Syntax Rules: 


1. Each identifier represents a numeric elementary item described in the DATA DIVISION. In Format 
2, identifier-1 must be described as a numeric integer. 

. Each literal represents a numeric literal. 

. The words THRU and THROUGH are equivalent. 

4. If an index-name is specified in the VARYING or AFTER phrase, then: 


la ho 


a. The identifier in the associated FROM and BY phrases must be an integer data item. 
b. The literal in the associated FROM phrase must be a positive integer. 
c. The literal in the associated BY phrase must be a nonzero integer. 


he 


. [If an index-name is specifed in the FROM phrase, then: 


a. The identifier in the associated VARYING or AFTER phrase must be an integer data item. 
b. The identifier in the associated BY phrase must be an integer data item. 
c. The literal in the associated BY phrase must be an integer. 


6. Literal in the BY phrase must not be zero. 

7. Condition-1, condition-2 may be any conditional expression as described in Conditional Expressions 
in this section. 

8. Where procedure-name-! and procedure-name-2 are both specified and either is the name of a proce- 
dure in the declarative section of the program, then both must be procedure-names in the same dec- 
larative section. 
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Rules: 


1. The data items referenced by identifier-4 and identifier-7 must not have a zero value. 


2 


6. 


1108883 


If an index-name is specified in the VARYING or AFTER phrase, and an identifier is specified in 


the associated FROM phrase, then the data item referenced by the identifier must have a positive val- 
ue. 


. When the PERFORM statement is executed, control is transferred to the first statement of the proce- 


dure named procedure-name-1, except as indicated in General Rules 6b, 6c, and 6d which follow. This 
transfer of control occurs only once for each execution of a PERFORM statement. For those cases 
where a transfer of control to the named procedure does take place, an implicit transfer of control 
to the next executable statement following the PERFORM statement is established as follows: 


a. If procedure-name-! is a paragraph-name and procedure-name-2 is not specified, then the return 
is after the last statement of procedure-name-|. 

b. If procedure-name-1I is a section-name and procedure-name-2 is not scandal: then the return is 
after the last statement of the last paragraph in procedure-name-1. 

c. If procedure-name-2 is specified and it is a paragraph-name, then the return is after the last state- 
ment of the paragraph. 

d. If procedure-name-2 is specified and it is a section-name, then the return is after the last statement 
of the last paragraph in the section. 


. No particular sequential relationship is required to exist between procedure-name-! and procedure- 


name-2. There may be more than one logical path of program control through the performed range 
of procedures. A common method, though not a required one, of documenting the terminal paragraph 
of a performed range of procedures is through the use of the EXIT statement. 


. An implicit return mechanism is established at the end of a performed range of procedures and is acti- 


vated by the execution of a PERFORM statement. Program control reaching an active return 
mechanism always returns to the activating PERFORM statement. A return mechanism permanently 
deactivates by transferring program control back to a PERFORM statement. An active return 
mechanism is temporarily deactivated by the execution of a PERFORM statement. Program control 
always passes through a nonactive return mechanism to the next executable statement following the 
PERFORM range. 

The PERFORM statements operate as follows with General Rule 5 applying to all formats: 


a. Format | is the format of the basic PERFORM statement. A procedure referenced by this type 
of PERFORM statement is executed once and then control passes to the next executable statement 
following the PERFORM statement. 

b. Format 2 is the format of the PERFORM...TIMES statement. The procedures are performed the 
number of times specified by integer-1 or by the initial value of the data item referenced by identifi- 
er-1 for that execution. If, at the time of execution of a PERFORM statement, the value of the 
data item referenced by identifier-1 is equal to zero or is negative, control passes to the next 
executable statement following the PERFORM statement. Following the execution of the proce- 
dures the specified number of times, control is transferred to the next executable statement fol- 
lowing the PERFORM statement. 


During execution of the PERFORM statement, references to identifier-! cannot alter the number 
of times the procedures are to be executed from that which was indicated by the initial value of 
identifier-1. 
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Format 3 is the format of the PERFORM...UNTIL statement. The specified procedures are per- 
formed until the condition specified by the UNTIL phrase is TRUE. When the condition is TRUE, 
control is transferred to the next executable statement after the PERFORM statement. If the condi- 
tion is TRUE when the PERFORM statemient is executed, no transfer to procedure-name-! takes 
place, and control is passed to the next executable statement following the PERFORM statement. 


. Format 4 is the format of the PERFORM.. VARYING statement. This variation of the PERFORM 


statement is used to augment the values referenced by one or more identifiers or index-names in 
an orderly fashion during the execution of a PERFORM statement. In the following discussion, 
every reference to identifier as the object of the VARYING, AFTER, and FROM (current value) 
phrases also refers to index-names. When index-name appears in a VARYING and/or AFTER 
phrase, it is initialized and subsequently augmented according to the rules of the SET statement. 
When index-name appears in the FROM phrase, identifier, when it appears in an associated 
VARYING or AFTER phrase, is initialized according to the rules of the SET statement. Subse- 
quent augmentation is described in the following paragraphs. 


Identifier-2 and all occurrences, if any, of identifier-5 are set, in the order of occurrence in the 
PERFORM statement, to the value of the !iteral or the current value of the identifier in the associ- 
ated FROM phrase. Condition-! is then evaluated. 


If any condition, other than the last, is FALSE on any occasion when it is evaluated, the next 
condition is evaluated immediately. 


If the last condition is FALSE when evaluated, the sequence of procedures, procedure-name- 1 
through procedure-name-2, is executed once. The last BY value is then added to the associated 
identifier-2 or identifier-5 and the condition evaluated again. 


If condition-! is TRUE when evaluated, control is transferred to the next executable statement 
after the PERFORM statement. If condition-1 is TRUE the first time it is evaluated, the remaining 
conditions are not evaluated and the sequence of procedures, procedure-name-1! through proce- 
dure-name-2, is not executed. 


If any condition-2 is TRUE when evaluated, these actions take place: first, the associated identifi- 
er-5 is set to the value of literal-3 or the current value of identifier-6 in the associated FROM 
phrase. Second, the identifier of the immediately preceding AFTER or VARYING phrase is incre- 
mented by the associated BY value, and the condition specified in that preceding phrase is then 
evaluated. 
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PERFORM 


Figure 7-2 is a flowchart for the VARYING phrase of a PERFORM statement having one condition. 
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ENTRANCE 


Set 
identifier-2 equal to 
current FROM value 


Condition-1 


FALSE 


Execute 
procedure-name-1 THRU 
procedure-name-2 


Augment 
identifier-2 with 
current BY value 


G12338 


Figure 7-2. PERFORM VARYING with One Condition 
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Figure 7-3 is a flowchart for the VARYING phrase of a PERFORM statement having two conditions. 


ENTRANCE 


{ 


Set identifier-2 and 
identifier-5 to current 
FROM values 


Condition-1 


> TRUE ; 
Exit 


Condition-2 


> TRUE 


Execute 
procedure-name-1 THRU 
procedure-name-2 


Set 
identifier-5 to its 
current FROM value 


Augment 
identifier-5 with 
current BY value 


Augment 
identifier-2 with 
current BY value 


G12339 


Figure 7-3. PERFORM VARYING with Two Conditions 
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7. A procedure executed under the control of a PERFORM statement may execute PERFORM state- 
ments. There is no requirement that the range of procedures executed under the control of the nested 
PERFORM statement be declared totally within, or disjoint from, the range of procedures executed 
by the first PERFORM statement. The permanent deactivation of an active return mechanism causes 
the last return mechanism temporarily deactivated to again become active, allowing overlapping PER- 
FORM ranges. or two or more PERFORM ranges that have a common exit point, to logically execute 
the same as disjoint PERFORM ranges. 


Transferring program control, by means of a GO TO statement, from a range of procedures being 
executed under control of a PERFORM statement does not cause the return mechanism to be deacti- 
vated. Subsequently transferring program control back into the PERFORM range causes control to 
return to the PERFORM statement, provided that the return mechanism is still active. Repeatedly 
branching from a PERFORM range without allowing control to ever reach an active return mechanism 


may cause the program to terminate abnormally by exhausting the resources allocated to account for 
return mechanisms. 
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For sequential access. the READ statement makes available the next logical record from a file. For random 
access, the READ statement makes available a spec'fied record from a mass storage file. 


General Format: 


Format |: 


READ file-name [ NEXT | RECORD [ INTO identifier ] 


[; AT END imperative-statement | 


Format 2: 


READ file-name RECORD  [ INTO identifier ] 


[ : KEY IS dava-name | 


[ ; INVALID KEY imperative-statement | 


Syntax Rules: 


1. The INTO phrase must not be used when the input file contains logical records of various sizes as indi- 
cated by their record descriptions. The storage area associated with identifier and the storage area which 
is the record area associated with file-name must not be the same storage area. 

2. For an Indexed File, data-name must be the name of a data item specified as a record key associated 

with file-name. 

. Data-name may be qualified. 

. Format 1 must be used for all files in sequential access mode. 

. The NEXT phrase must be specified for Relative and Indexed Files in dynamic access mode when records 

are to be retrieved sequentially. 


aA Db US 
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6. Format 2 is used for files in random access mode or for files in dynamic access mode when records 
are to be retrieved randomly. 
7. The INVALID KEY phrase or the AT END phrase must be specified if no applicable USE procedure 
is specified for the file-name. | 


General Rules: 


1. The associated file must be open in the INPUT or I-O mode and must not be a SORT or MERGE 
file. Refer to the OPEN statement in this section. 

2. The record to be made available by a Format 1 READ statement 
is determined as follows: 


a. The record, pointed to by the current record pointer, is made available provided that the current 
record pointer is positioned by the START or OPEN statement and the record is still accessible 
through the path indicated by the current record pointer. If the record is no longer accessible, which 
may be caused by the deletion of the record or a change in an alternate record key, the current 
record pointer is updated to point to the next existing record within the established key of reference 
and that record is then made available. 
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b. If the current record pointer was positioned by the execution of a previous READ statement, the 
current record pointer is updated to point to the next existing record in the file with the established 
key of reference, and that record is then made available. 


3. The execution of the READ statement causes the value of the FILE STATUS data item, if any, associ- 
ated with file-name to be updated. Refer to I-O Status in Section 5. 

4. Regardless of ess time with processing time, the concept of the READ 
statement s unchanged in that a record is available to the object 
program pri o the execution of any statement following the READ statement. 

5. When the logical records of a file are described with more than one record description, these records 
automatically share the same storage area; this is equivalent to an implicit redefinition of the area. The 
contents of any data items which lie beyond the range of the current data record are undefined at the 
completion of the execution of the READ statement. 

6. If the INTO phrase is specified, the record being read is moved from the record area to the area 
specified by identifier according to the rules specified for the MOVE statement without the CORRE- 
SPONDING phrase. The sending area is considered to be a group item whose size is equal to the 
maximum record size for this file. 


The implied MOVE does not occur if the execution of the READ statement was unsuccessful. Any 
subscripting or indexing associated with identifier is evaluated after the record has been read and imme- 
diately before it is moved to the data item. 


7. When the INTO phrase is used, the record being read is available in both the input record area and 
the data area associated with identifier. 

8. If, at the time of execution of a Format 1 READ statement, the position of current record pointer 
for that file is undefined, the execution of that READ statement is unsuccessful. 

9. If, at the time of the execution of a Format 1 READ statement, no next logical record exists in the 
file, the AT END condition occurs, and the execution of the READ statement is considered unsuccess- 
ful. Refer to I-O Status in Section 5. 

10. When the AT END condition is recognized, the following actions are taken in the specified order: 


a. A value is placed into the FILE STATUS data item, if specified for this file, to indicate an AT 
END condition. Refer to I-O Status in Section 5. 

b. If the AT END phrase is specified in the statement causing the condition, control is transferred to 
the AT END imperative statement. Any USE procedure specified for this file is not executed. 

c. If the AT END phrase is not specified, then a USE procedure must be specified, either explicitly 
or implicitly for this file, and that procedure is executed. 


When the AT END condition occurs, execution of the input-output statement which caused the con- 
dition is unsuccessful. 


11. Following the unsuccessful execution of any READ statement, the contents of the associated record area 
and the position of the current record pointer are undefined. For Indexed Files, the key of reference 
is also undefined. 

12. When the AT END condition has been recognized., a Format $1 READ statement for that file must not 
be executed without first executing one of the following: 


a. A successful CLOSE statement followed by the execution of a successful OPEN statement for that 
file. 
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b. A successful START statement for the file. 
c. A successful Format 2 READ statement for that file. 
d. A SEEK statement. 


. For a file for which dynamic access mode is specified, a Format | READ statement with the NEXT 


phrase specified causes the next logical record to be retrieved from that file as described in the pre- 
ceding General Rule 2. 


. For an Indexed File being sequentially accessed. records having the same duplicate value in an alter- 


nate record key, which is the key of reference, are made available in the same order in which they 
are released by execution of WRITE statements, or by execution of REWRITE statements which 
create such duplicate values. 


. For an Indexed File. if the KEY phrase is specified in a Format 2 READ statement, data-name is 


established as the key of reference for this retrieval. If the dynamic access mode is specified, this 
key of reference is also used for retrievals by any subsequent executions of Format | READ state- 
ments until a different key of reference is established for the file. 


. For an Indexed File, if the KEY phrase is not specified in a Format 2 READ statement, the prime 


record key is established as the key of reference for this retrieval. If the dynamic access mode is 
specified. this key of reference is also used for retrievals by any subsequent executions of Format 
1 READ statements until a different key of reference is established for the file. 


. Execution of a Format 2 READ statement on an Indexed File causes the value of the key of refer- 


ence to be compared with the value contained in the corresponding data item of the stored records 
in the file. until the first record having an equal value is found. The current record pointer is posi- 
tioned to this record which is then made available. If no record can be so identified, the INVALID 
KEY condition exists and execution of the READ statement is unsuccessful. Refer to the INVALID 
KEY Condition in Section 5. 


. If the end of a reel or unit is recognized during execution of a READ statement, and the logical 


end of the file has not been reached. the following operations are executed: 


a. The standard ending reel/unit label procedure. 

A reel/unit swap. 

. The standard beginning reel/unit label procedure. 

. The first data record of the new reel/unit is made available. 


2; 


a0 


If a Sequential File described with the OPTIONAL phrase is not present at the time the file is 
opened. then at the time of execution of the first READ statement, the AT END condition occurs 
and the execution of the READ statement is unsuccessful. The standard end-of-file procedures are 
not performed. Refer to the FILE-CONTROL Paragraph, and I-O Status in Section 5; OPEN State- 
ment, and USE Statement in Section 7. Execution of the program then proceeds as specified in gen- 
eral rule 10. 

In a Sequential File. if the ACTUAL KEY phrase is specified for a file whose access mode is se- 
quential, the execution of a Format | READ statement updates the contents of the ACTUAL KEY 
data item to the ordinal number of the logical record accessed. 


. The execution of a Format 2 READ statement accesses the record specified by the contents of the 


ACTUAL KEY data item. 


:. If. upon the execution of a Format 2 READ statement, the contents of the ACTUAL KEY data item 


are less than | or greater than the ordinal number of the last record written to the file, the READ 
statement is unsuccessful and the INVALID KEY condition exists. 


3. In a Relative File, if the RELATIVE KEY phrase is specified, the execution of a Format | READ 


statement updates the content of the RELATIVE KEY data item so that it contains the relative rec- 
ord number of the record made available. 
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24. For a Relative File, the execution of a Format 2 READ statement sets the current record pointer 
and makes available the record whose relative record number is contained in the data item named 
in the RELATIVE KEY phrase for the file. If the file does not contain such a record, the INVALID 

KEY condition exists and execution of the READ statement is unsuccessful. Refer to the INVALID 

KEY condition under Invalid Key in Section 5 
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The RECEIVE statement makes available to the COBOL74 program a message and other pertinent information 
about that data from a queue. The RECEIVE statement allows for a specific imperative statement when no 
data is available. 


General Format: 


a renee se sinister Aeon A A A tA NN Rt A SS 


RECEIVE cd-name MESSAGE INTO _ identifier-] 


[ ; NO DATA imperative-statement | 


arene RENAN 
ae ett eit TE Et A ANH nn ret NNER 


Syntax Rules: 


I. 


Cd-name must reference an input CD. 


General Rules: 


I. 


No 


7-94 


The contents of the data items specified by data-name-! (SYMBOLIC QUEUE) of the area referenced 
by cd-name designate the queue containing the message. Refer to the Communication Description 
Structure (CD) in Section 6. 


. The message is transferred to the receiving character positions of the area referenced by identifier- 


| aligned to the left without space fill. 


. When, during the execution of a RECEIVE statement, the data is made available in the data item 


referenced by identifier-1, control is transferred to the next executable statement, whether or not the 
NO DATA phrase is specified. 


. When, during the execution of a RECEIVE statement, the data is not made available in the data item 


referenced by identifier-1: 


a. If the NO DATA phrase is specified, the RECEIVE operation is terminated with the indication 
that action is complete (refer to General Rule 5), and the imperative statement in the NO DATA 
phrase is executed. 

b. If the NO DATA phrase is not specified, execution of the object program is suspended until data 
is made available in the data item referenced by identifier-1. 

c. If the queue is unknown or access is denied to the queue, control passes to the next executable 
statement, whether or not the NO DATA phrase is specified. Refer to Table 6-3, Communication 
Status Key Condition, in Section 6. 


. The data items identified by the input CD are appropriately updated at each execution of a RECEIVE 
_ Statement. Refer to the Communication Deszription Structure (CD) in Section 6. 
. [f a message is the same size as the area referenced by identifier-!, the message is stored in the area 


referenced by identifier-1. 


. If a message size is less than the size of the area referenced by identifier-l, the message is aligned 


to the leftmost character position of the area referenced by identifier-| with no space fill. 


. If a message size is greater than the size of the area referenced by identifier-1, the message fills the 


area referenced by identifier-1 left to right, starting with the leftmost character of the message. The 
remainder of the message is discarded. 
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The RELEASE statement transfers records to the initial phase of a SORT operation. 


General Format: 


i RELEASE record-name [FROM identifier] | 


Syntax Rules: 


1. A RELEASE statement may only be used within the range of an input procedure associated with a 
SORT statement for a file whose Sort-Merge file description entry contains record-name. Refer to 
SORT in this section. 

2. Record-name must be the name of a logical record in the associated Sort-Merge file description entry 
and may be qualified. 

3. Record-name and identifier must not refer to the same storage area. 


General Rules: 


1. The execution of a RELEASE statement causes the record named by record-name to be released to 
the initial phase of a sort operation. 

2. If the FROM phrase is used, the contents of the identifier data area are moved to record-name, then 
the contents of record-name are released to the sort file. Moving takes place according to the rules 
specified for the MOVE statement without the CORRESPONDING phrase. 

3. The execution of a RELEASE statement has no effect upon either the contents or accessibility of 
the record area. If the sort-merge file is named in a SAME RECORD AREA clause, the logical record 
is also available to the program as a record of other files referenced in the same SAME RECORD 
AREA clause as the associated sort-merge file, as well as to the file associated with record-name. 
When control passes from the input procedure, the file consists of all those records which were placed 
in it by the execution of RELEASE statements. 
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The RETURN statement obtains either sorted records ‘rom the final phase of a SORT operation or merged 
records during a MERGE operation. 


General Format: 


i RETURN file-name RECORD [INTO idertifier ] ; AT END imperative-statement 


Syntax Rules: 


1, 
oe 


oe 


File-name must be described by a Sort-Merge file description entry in the DATA DIVISION. 

A RETURN statement may only be used within the range of an output procedure associated with a 
SORT or MERGE statement for file-name. 

The INTO phrase must not be used when the input file contains logical records of various sizes as 
indicated by their record descriptions. The storage area associated with identifier and the record area 
associated with file-name must not be the same storage area. 


General Rules: 
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When the logical records of a file are described with more than one record description, these records 
automatically share the same storage area. which is an implicit redefinition of the area. 

The execution of the RETURN statement causes the next record, in the order specified by the KEY 
clause in the SORT or MERGE statement, to be transferred to the record area. 


It is the responsibility of the COBOL74 programmer to account, if necessary, for the size of the 
logical record returned. 


. If the INTO phrase is specified, the current record is moved from the input area to the area specified 


by identifier according to the rules for the MOVE statement without the CORRESPONDING phrase, 
with the sending area considered to be a group item having a fixed size equal to the maximum record 
size. The implied MOVE does not occur if there is an AT END condition. Any subscripting or index- 


ing associated with identifier is evaluated after the record has been returned and immediately before 
it is moved to the data item. 


. When the INTO phrase is used, the data is available in both the input record area and the data area 


associated with identifier. 


. If no next logical record exists for the file at the time of the execution of a RETURN statement, the 


AT END condition occurs. 


When the AT END condition occurs, no transfer of data to the record area takes place and the con- 
tents of the record area are undisturbed. After the AT END condition occurs, the contents of the 
record area are still accessible. After the execution of the imperative-statement in the AT END 
phrase, no other RETURN statement may be executed as part of the current output procedure. 
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The REWRITE statement logically replaces a record existing in a mass storage file. 


General Format: 


REWRITE __record-name [ FROM identifier] 


[; INVALID KEY imperative-statement ] 


Syntax Rules: 


. Record-name and identifier must not refer to the same storage area. 

2. Record-name is the name of a logical record in the FILE SECTION of the DATA DIVISION and 
may be qualified. 

3. The INVALID KEY phrase must not be specified for a REWRITE statement which references a file 
in sequential access mode. 

4. The INVALID KEY phrase must be specified in the REWRITE statement for files in the random or 

dynamic access mode for which an appropriate USE procedure is not specified. 


— 


General Rules: 


1. The file associated with record-name must be a mass storage file and must be open in the I-O mode 
at the time of execution of this statement. It cannot be a SORT or MERGE file. Refer to the OPEN 
statement in this section. 

2. For files in the sequential access mode, the last input-output statement executed for the associated 
file prior to the execution of the REWRITE statement must be a successfully executed READ state- 
ment. The record that is accessed by the READ statement is logically replaced. 

3. The number of character positions in the record referenced by record-name must be equal to the 
number of character positions in the record being replaced. 

4. The execution of the REWRITE statement has no effect upon the contents or accessibility of the 
record area. If the associated file is named in a SAME RECORD AREA clause, the logical record 
is available to the program as a record of other files appearing in the same SAME RECORD AREA 
clause as the associated I-O file, as well as to the file associated with record-name. 

5. The execution of a REWRITE statement with the FROM phrase is equivalent to the execution of: 


MOVE identifier TO record-name 


followed by the execution of the same REWRITE statement without the FROM phrase. The contents 
of the record area before execution of the implicit MOVE statement have no effect on the execution 
of the REWRITE statement. 


6. The current record pointer is not affected by the execution of a REWRITE statement. 

7, The execution of the REWRITE statement causes the value of the FILE STATUS data item, if any, 
associated with the file to be updated. Refer to ILO STATUS in Section 5. 

8. For a Relative File accessed in either random or dynamic access mode, the record specified by the 
contents of the RELATIVE KEY data item associated with the file is the one rewritten. If the file 
does not contain the record specified by the key, the INVALID KEY condition exists. Refer to the 
Invalid Key in Section 5. The updating operation does not take place and the data in the record area 
is unaffected. 


1108883 7-97 


B 1000 Systems COBOL74 Reference Manual 
Procedure Division 


REWRITE 


7-98 


10. 


. In a Sequential File, contents of the ACTUAL KEY data item, if specified, are ignored during the 


execution of the REWRITE statement and are not updated by execution of that statement. 

For an Indexed File in the sequential access mode, the record to be replaced is specified by the value 
contained in the prime record key. When the REWRITE statement is executed, the value contained 
in the prime record key data item of the record to be replaced must be equal to the value of the 
prime record key of the last record read from this file. 


. For an Indexed File in the random or dynamic access mode, the record to be replaced is specified 


by the prime record key data item. 


. In an Indexed File, the contents of alternate record key data items of the record being rewritten may 


differ from those in the record being replaced. The contents of the record key data items are utilized 
during the execution of the REWRITE statement in such a way that subsequent access of the record 
may be made based upon any of those specified record keys. 


. In an Indexed File, the INVALID KEY condition exists when: 


a. The access mode is sequential and the value contained in the prime record key data item of the 
record to be replaced is not equal to the value of the prime record key of the last record read 
from this file. 

b. The value contained in the prime record key data item does not equal that of any record stored 
in the file, or 

c. The value contained in an alternate record key data item for which a DUPLICATES clause has 
not been specified is equal to that of a record already stored in the file. 


The updating operation does not take place and the data in the record area unaffected. Refer to 
the Invalid Key in Section 5. 
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The SEARCH statement is used to search a table for a table element that satisfies the specified condition and 
to adjust the associated index-name to indicate that table element. 


General Formats: 


Format 1: 
SEARCH identifier-1 | VARYING anual | 
——— ——= \index-name-] 
[; AT END imperative-statement-] ] 
; ere oo 
; WHEN condition-1 | NEXT SENTENCE 
Rene mee Harned ama 
[ WHEN condition-2 {NEXT SENTENCE 
Format 2: 


SEARCH ALL identifier-1 [. AT END imperative-statement-1 ] 


identifier-3 
ay) data-name-1 fee UAL ae literal-1 


arithmetic-expression-1 


condition-name-] 


identifier-4 
| date-name-2 ee EQUAL ey itera ! 
arithmetic-expression-2 | 


iz 


AND 
een 2 


imperative-statement-2 
NEXT SENTENCE 


NOTE 
To avoid confusion with other symbols, the required relational character ’=’ is not 
underlined. 
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Syntax Rules: 


1. 


General 


Ze 
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In both Formats | and 2, identifier-1 must not be subscripted or indexed, but its description must 
contain an OCCURS clause and an INDEXED BY clause. The description of identifier-1 in Format 
2 must also contain the KEY JS phrase in its OCCURS clause. 


. Identifier-2, when specified, must be described as USAGE IS INDEX or as a numeric elementary item 


without any positions to the right of the assumed decimal point. 


. In Format 1, condition-!, condition-2, and so on, may be any condition as described in Conditional 


Expressions in this section. 


. In Format 2, all referenced condition-names must be defined as having only a single value. The data- 


name associated with a condition-name must appear in the KEY clause of identifier-1. Each- data- 
name-!, data-name-2 may be qualified. Each data-name-1!, data-name-2 must be indexed by the first 
index-name associated with identifier-1 along with other indices or literals as required, and must be 
referenced in the KEY clause of identifier-1. Identifier-3, identifier-4, or identifiers specified in arith- 
metic-expression-1, arithmetic-expression-2 must not be referenced in the KEY clause of identifier- 
1 or be indexed by the first index-name associated with identifier-1. 


In Format 2, when a data-name in the KEY clause of identifier-1 is referenced, or when a condition- 
name associated with a data-name in the KEY clause of identifier-1 is referenced, all preceding data- 
names in the KEY clause of identifier-! or their associated condition-names must also be referenced. 


Rules: 


. If Format | of the SEARCH statement is used, a serial type of search operation takes place, starting 


with the current index setting. 


a. If, at the start of execution of the SEARCH statement, the index-name associated with identifier- 
1 contains a value that corresponds to an occurrence number that is greater than the highest per- 
missible occurrence number for identifier-!, the operation is terminated immediately. The number 
of occurrences of identifier-1, the last of which is the highest permitted, is discussed in the OC- 
CURS clause. Refer to the OCCURS clause in Section 6. Then, if the AT END phrase is specified, 
imperative-statement-1I is executed, and the AT END phrase is not specified, control passes to the 
next executable sentence. 

b. If, at the start of execution of the SEARCH statement, the index-name associated with identifier- 
! contains a value that corresponds to an occurrence number that is not greater than the highest 
permissible occurrence number for identifier-1, the SEARCH statement operates by evaluating the 
conditions in the order in which written. making use of the index settings, wherever specified, to 
determine the occurrence of those items to be tested. If none of the conditions are satisfied, the 
index-name for identifier-! is incremented to obtain reference to the next occurrence. The process 
is then repeated using the new index-name settings unless the new value of the index-name settings 
for identifier-! corresponds to a table element outside the permissible range of occurrence values, 
in which case the search terminates as indicated in General Rule la. If one of the conditions is 
satisfied upon its evaluation, the search terminates immediately and the imperative statement asso- 
ciated with that condition is executed; the index-name remains set at the occurrence which caused 
the condition to be satisfied. 


In a Format 2 SEARCH statement, the results of the SEARCH ALL operation are predictable only 
when the data in the table is ordered in the same manner as described in the ASCENDING/DE- 
SCENDING KEY clause associated with the description of identifier-1. 


3. 
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If Format 2 of the SEARCH statement is used, a binary search type of operation takes place; the 
initial setting of the index-name for identifier-1 is ignored and its setting is varied during the search 
operation according to accepted binary techniques, with the restriction that at no time is it set to a 
value exceeding the value which corresponds to the last element of the table, or which is less than 
the value that corresponds to the first element of the table. The length of the table is discussed in 
the OCCURS clause. Refer to the OCCURS clause in Section 6. If any of the conditions specified 
in the WHEN clause cannot be satisfied for any setting of the index within the permitted range, con- 
trol is passed to imperative-statement-! of the AT END phrase, when specified, or to the next execut- 
able sentence when not specified. In either case, the final setting of the index is the value which corre- 
sponds to an occurrence number which is one greater than the last element of the table. 


If all the conditions can be satisfied, the index indicates an occurrence that allows the conditions to 
be satisfied, and control passes to imperative-statement-2. 


When the contents of the key(s) referenced in the WHEN clause are not sufficient to identify a unique 


table element, the index indicates the occurrence closest to the beginning of the table which satisfies 
the condition. 


. After execution of imperative-statement-!, imperative-statement-2, or imperative-statement-3, that 


does not terminate with a GO TO statement, control passes to the next executable sentence. 


. In Format 2, the index-name that is used for the search operation is the first or only index-name that 


appears in the INDEXED BY phrase of identifier-1. Any other index-names for identifier-! remain 
unchanged. 


. In Format 1, if the VARYING phrase is not used, the index-name that is used for the search operation 


is the first or only index-name that appears in the INDEXED BY phrase of identifier-1. Any other 
index-names for identifier-! remain unchanged. 


. In Format 1, if the VARYING index-name-! phrase is specified, and if index-name-! appears in the 


INDEXED BY phrase of identifier-!, that index-name is used for this search. If this is not the case, 
or if the VARYING identifier-2 phrase is specified, the first or only index-name given in the IN- 
DEXED BY phrase of identifier-! is used for the search. In addition, the following operations occur: 


a. If the VARYING index-name-! phrase is used, and if index-name-! appears in the INDEXED BY 
phrase of another table entry, the occurrence number represented by index-name-l is incremented 
by the same amount and at the same time as the occurrence number represented by the index- 
name associated with identifier-1 is incremented. 

b. If the VARYING identifier-2 phrase is specified, and identifier-2 is an index data item, then the 
data item referenced by identifier-2 is incremented by the same amount and at the same time as 
the index associated with identifier-1 is inéremented. If identifier-2 is not an index data item, the 
data item referenced by identifier-2 is incremented by the value | at the same time as the index 
referenced by the index-name associated with identifier-1 is incremented. 


. If identifier-1 is a data item subordinate to a data item that contains an OCCURS clause providing 


for a multidimensional table, an index-name must be associated with each dimension of the table 
through the INDEXED BY phrase of the OCCURS clause. Only the setting of the index-name associ- 
ated with identifier-! (and the data item identifier-2 or index-name-1, if present) is modified by the 
execution of the SEARCH statement. To search an entire multidimensional table it is necessary to 
execute a SEARCH statement several times. Before each execution of a SEARCH statement, SET 
statements must be executed whenever index-names must be adjusted to appropriate settings. 
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Figure 7-4 contains a flowchart of the Format | SEARCH operation containing two WHEN phrases. 


START 


Index 
setting: 
highest permissible 
occurrence 
number 


> AT END * 


imperative- 
statement-1 


TRUE 


imperative- 


ce 
statement-2 


Condition-1 


TRUE imperative- 


statement-3 


Condition-2 


increment index-name for 
identifier-1 (index-name-1 
if applicable) 


increment index-name-1 
(for a different table) * 
or identifier-2 


* THESE OPERATIONS ARE OPTIONS INCLUDED ONLY WHEN 
SPECIFIED IN THE SEARCH STATEMENT, 


** EACH OF THESE CONTROL TRANSFERS IS TO THE NEXT 


EXECUTABLE SENTENCE UNLESS THE IMPERATIVE-STATEMENT 
ENDS WITH A GO TO STATEMENT. 


G12340 


Figure 7-4. SEARCH with Two WHEN Phrases 
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The SEND statement causes a message to be released to one or more output queues. 


General Format: 


f WITH identifier-2 
SEND cd-name_ [ FROM identifier-1 ] 
— ie WITH EMI 


identifier-3 LINE | 
integer LINES 
BEFORE \ ; 
eee ADVANCING 


‘ mnemonic-name 
PAGE 


Syntax Rules: 


1. Cd-name must reference an output CD. 

2. Identifier-2 must reference a one-character integer without an operational sign. 

3. When identifier-3 is used in the ADVANCING phrase, it must be the name of an elementary integer 
item. 

4. When the mnemonic-name phrase is used, it must be associated with a CHANNEL number. The mne- 
monic-name is defined in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION. 

5. Integer or the value of the data item referenced by identifier-3 may be zero. 


General. Rules: 


1. When a receiving communication device such as a printer, display screen, or card punch, is oriented 
to a fixed line size: 


a. Each message begins at the leftmost character position of the physical line. 

b. A message that is smaller than the physical line size is released so as to appear space-filled to 
the right. 

c. Excess characters of a message are not truncated. Characters are packed to a size equal to that 
of the physical line and then sent to the device. The process continues on the next line with the 
excess characters. 


2. When a receiving communication device (paper tape punch, or another computer) is oriented to handle 
variable length messages, each message begins on the next available character position of the commu- 
nications device. 

3. As part of the execution of a SEND statement, the data item referenced by data-name-2 (TEXT 
LENGTH) of the area referenced by cd-name is the user’s indication of the number of leftmost char-- 
acter positions of the data item referenced by identifier-1 from which data is to be transferred. 


7-104 


B 1000 Systems COBOL74 Reference Manual 
Procedure Division 


SEND 


If the contents of the data item referenced by data-name-2 (TEXT LENGTH) of the area referenced 
by cd-name are zero, no characters of the data item referenced by identifier-1 are transferred. 


If the contents of the data item referenced by data-name-2 (TEXT LENGTH) of the area referenced 
by cd-name are outside the range of zero through the size of the data item referenced by identifier- 
I inclusive, an error is indicated by the value of the data item referenced by data-name-3 (STATUS 
KEY) of the area referenced by cd-name, and no data is transferred. Refer to Table 6-3, Communica- 
tion Status Key Condition, in Section 6. 


4. As part of the execution of a SEND statement, the contents of the data item referenced by data-name- 
3 (STATUS KEY) of the area referenced by cd-name are updated. Refer to Communication Descrip- 
tion Structure (CD) in Section 6. 

5. The effect of having special control characters within the contents of the data item referenced by iden- 
tifier-1 are undefined. 

6. The contents of the data item referenced by identifier-2 indicate that the contents of the data item 
referenced by identifier-1 are to have associated with them an ending indicator. 


The content of the data item referenced by identifier-2 must contain a 2. Thus, the contents of the 
data item referenced by identifier-1 is associated with an end of message indicator or EMI. 


If the content of the data item referenced by identifier-2 is other than a 2, an error is indicated by 
the value in the data item referenced by data-name-3 (STATUS KEY) of the area referenced by cd- 
name, and no data is transferred. 


7. The ADVANCING phrase allows control of the vertical positioning of each message on a communica- 
tion device where vertical positioning is applicable. If vertical positioning is not applicable on the de- 
vice, the vertical positioning specified or implied is ignored. 

8. On a device where vertical positioning is applicable and the ADVANCING phrase is not specified, 
automatic advancing is provided to act as if the user has specified AFTER ADVANCING | LINE. 

9. If the ADVANCING phrase is implicitly or explicitly specified and vertical positioning is applicable, 
the following rules apply: 


a. If identifier-3 or integer is specified, characters transmitted to the communication device are reposi- 
tioned vertically downward the number of lines equal to the value associated with the data item 
referenced by identifier-3 or integer. 

b. If mnemonic-name is specified, characters transmitted to the communication device are positioned 
to the line number corresponding to the CHANNEL number. 

c. If the BEFORE phrase is used, the message is represented on the communication device before 
vertical repositioning according to General Rules 9a and 9b. 

d. If the AFTER phrase is used, the message is represented on the communication device after verti- 
cal repositioning according to General Rules 9a and 9b. 

e. If PAGE is specified, characters transmitted to the communication device are represented on the 
device BEFORE or AFTER (depending upon the phrase used) the device is repositioned to the 
next page. If PAGE is specified but page has no meaning in conjunction with a specific device, 
then page advancing is provided to act as if the user has specified BEFORE or AFTER ADVANC- 
ING 1 LINE. 
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The SET statement establishes reference points for table handling operations by setting index-names associated 
with table elements. 


General Format: 


Format |: 


tl A ee AR A A A, A A ER A SA BR} AR SE Fe RAG rR PT ES SPEC ATES SFE Es TOES 


identifier-1 , identifier-2 identifier-3 
SET ou TO 4 index-name-3 


index-name-1 , index-name-2 integer-] 


a ar eae ea ning ROR ntnierem remetonnntanieeteienaemnennineemmmennettenntenbenemmtinememanenaaliagnaanmmmemaentenae! 


UP BY identifier-4 
SET index-name4 [, index-name-5] ... 


integer-2 


Syntax Rules: 


1. All references to index-name-1!, identifier-1, and’ index-name4 apply equally to index-name-2, identifi- 
er-2, and index-name-5, respectively. 

2. Identifier-1 and identifier-3 must name index data items, or elementary items described as an integer. 

3. Identifier-4 must be described as an elementary numeric integer. 

4. Integer-1 and integer-2 may be signed. Integer-1 may be zero. 


General Rules: 


1. Index-names are considered related to a given table and are defined by being specified in the IN- 
DEXED BY clause. 

2. If index-name-3 is specified, the value of the index before the execution of the SET statement should 
correspond to an occurrence number of an element in the associated table. 


If index-name-4, index-name-S is specified, the value of the index both before and after the execution 
of the SET statement should correspond to an occurrence number of an element in the associated 
table. If index-name-1, index-name-2 is specified, the value of the index after the execution of the 
SET statement should correspond to an occurrence number of an element in the associated table. 


7-106 


B 1000 Systems COBOE74 Reference Manual 
Procedure Division 


SET 


‘, is permissible to set index-name-I, index-name-2, index-name-4, index-name-5, to any value with 
the following restrictions: 


a. H overflow occurs, the value in the index-name is left-truncated according to the arithmetic rules 
for a size error condition without a SIZE ERROR phrase. Refer to the SIZE ERROR phrase in 
fais section, 

*.. When a statement using the index-name to refer to a table element is executed. the value in the 
index or the value produced by relative indexing must fall within the range specified by the OC- 
“URS clause defining the table. Otherwise. an abnormal termination of the program occurs. Refer 
‘so indexing in Section 2. 


3, When a Format I SET statement is executed. the following actions occur: 


a. Index-name-I is set to a value causing it to refer to the table element that corresponds in occur- 
rence number to the table element referenced by index-name-3, identifier-3, or integer-1. If identifi- 
er-3 is an index data item, or if index-name-3 is related to the same table as index-name-1, no con- 
version takes place. 

b. If identifier-1 is an index data item. it may be set equal to either the contents of index-name-3 
or identifier-3. where identifier-3 is also an index data item. No conversion takes place in either 
Case. 

c. if identifier-1 is not an index data item, it may be set only to an occurrence number that corre- 
sponds to the value of index-name-3. Neither identifier-3 nor integer-1 can be used in this case. 

d. The process is repeated for index-name-2, identifier-2. etc.. if specified. Each time. the value of 
index-name-3 or identifier-3 is used as it was at the beginning of the execution of the statement, 
any subscripting or indexing associated with identifier-1. and so forth, is evaluated immediately be- 
fore the value of the respective data item is changed. 


4. In Format 2. the contents of index-name-4 are incremented (UP BY) or decremented (DOWN BY) 
by a value that corresponds to the number of occurrences represented by the value of integer-2 or 
identifier-4: thereafter. the process is repeated for index-name-5, and so on. Each time. the value of 
identifier-4 is used as it was at the beginning of the execution of the statement. 

5. Data in Table 7-6 represents the validity of various operand combinations in the SET statement. The 
general rule reference (for example, 3b) indicates the applicable general rule. 


Table 7-6. SET Statement Combinations 


Receiving Item 
Sending item : 


aera: 
a 
4 


Integer Data Item Index-Name 


Index Data Item 


1 Ore are WARE RNAS ate ex arn maa 


No/3c Valid/3a Nob 


integer Lateral 


3 


fnteger Data Item NOBc Valid3a No/3b 
Index-Name Valid/3c Valid3a Valid/3b * 
Valid3a * Valid/3b * 


Index Data Item No/3c 


aotety 


*No conversion takes place 
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The SORT statement creates a sort file two ways: first, by executing input procedures or, second, by transtfer- 
ring records from another file. The records are then sorted on a set of specified keys, and in the final phase 
of the sort operation, made available in sorted order, to some output procedures or to an output file. 


General Format: 


SORT file-name-1 


ASCENDING) 
ON KEY data-name-1 [ : data-name-2 ] 
| DESCENDING | 


ASCENDING 
ON KEY data-name-3 [ ; data-name-4 | cele 
DESCENDING 


[COLLATING SEQUENCE IS alphabet-name] 


THROUGH 
INPUT PROCEDURE IS _ procedure-name-! procedure-name-2 


THRU 


USING | file-name-2 , file-name-3 
THROUGH 

OUTPUT PROCEDURE IS procedure-name-3 procedure- same 
THRU 


GIVING file-name-4 
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Syntax Rules: 


1. File-name-! must be described in a sort-merge file description (SD) entry in the DATA DIVISION. 

2. Procedure-name-! represents the name of an input procedure. Procedure-name-3 represents the name 
of an output procedure. 

3. File-name-2 and file-name-4 must be described in a file description entry (FD), not in a Sort-Merge 
file description entry (SD), in the DATA DIVISION. The actual size of the logical record(s) described 
for file-name-2 and file-name-4 must be equal to the actual size of the logical record(s) described for 
file-name-1. If the data descriptions of the elementary items that make up these records are not identi- 
cal, it is the programmer’s responsibility to describe the corresponding records so as to cause an equal 
number of character positions to be allocated for the corresponding records. 

4, Data-name-!, data-name-2, data-name-3, and data-name-4 are KEY data-names and are subject to the 
following rules: 


a. The data items identified by KEY data-names must be described in records associated with file- 
name-l. 

b. KEY data-names may be qualified. 

c. The data items identified by KEY data-names must not be variable length items. 

d. If file-name-! has more than one record description, then the data items identified by KEY data- 
names may all be described within one of the record descriptions or in any combination of record 
descriptions. It is not necessary to redescribe the KEY data-names in each record description. 

e. None of the data items identified by KEY data-names can be described by an entry which contains 
an OCCURS clause or which is subordinate to an entry which contains an OCCURS clause. 


A 


. The words THRU and THROUGH are equivalent. 

6. SORT statements may appear anywhere except in the declaratives portion of the PROCEDURE DIVI- 
SION or in an input or output procedure associated with a SORT or MERGE statement. 

7. No more than one file-name from a multiple file reel can appear in the SORT statement. 


General Rules: 


. The PROCEDURE DIVISION may contain more than one SORT statement appearing anywhere ex- 
cept: 


a. In the declaratives portion. 
b. In the input and output procedures associated with a SORT or MERGE statement. 


2. The data-names following the word KEY are listed from left to right in the SORT statement in order 
of decreasing significance without regard to how they are divided into KEY phrases. In the format, 
data-name-! is the major key, data-name-2 is the next most significant key. 


a. When the ASCENDING phrase is specified, the sorted sequence is from the lowest value of the 
contents of the data items identified by the KEY data-names to the highest value, according to 
the rules for comparison of operands in a relation condition. 

b. When the DESCENDING phrase is specified, the sorted sequence is from the highest value of 
the contents of the data items identified by the KEY data-names to the lowest value, according 
to the rules for comparison of operands in‘a relation condition. 
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. The collating sequence that applies to the comparison of the nonnumeric key data items specified 


is determined in the following order of precedence: 


a. First. by the collating sequence established by the COLLATING SEQUENCE phrase, if 
specified, in the SORT statement. 
b. Second, by the collating sequence established as the program collating sequence. 


. The input procedure must consist of one or more paragraphs or sections which appear contiguously 


in a source program and which do not form a part of any output procedure. In order to transfer 
records to the file referenced by file-narne-!, the input procedure must include the execution of at 
least one RELEASE statement. Control must not be passed to the input procedure except when a 
related SORT statement is being executed. The input procedure can include any procedures needed 
to select. create. or modify records. The restrictions on the procedural statements within the input 
procedure are as follows: 


a. The input procedure must not contain any SORT or MERGE statements. 

b. The input procedure must not contain any explicit transfers of control to points outside the input 
procedure. ALTER, GO TO, and PERFORM statements in the input procedure are not permitted 
to refer to procedure-names outside the input procedure. COBOL74 statements that cause an implied 
transfer of control to declaratives are allowed. 

c. The remainder of the PROCEDURE DIVISION must not contain any transfers of control to points 
inside the input procedure. ALTER, GO TO, and PERFORM statements in the remainder of the 
PROCEDURE DIVISION must not refer to procedure-names within the input procedure. 


Violations of these restrictions on procedural statements concerning input procedures are not syntaxed 
by the compiler. It is the responsibility of the programmer to ensure that these restrictions are enforced. 


. If an input procedure is specified, contrcl is passed to the input procedure before file-name-1 is se- 


quenced by the SORT statement. The compiler inserts a return mechanism at the end of the last 
paragraph or section in the input procedure. When control passes the last statement in the input proce- 
dure, the records released to file-name-1 are sorted. 


. The output procedure must consist of one or more paragraphs or sections which appear contiguously 


in a source program and which do not form part of any input procedure. In order to make sorted 
records available for processing, the output procedure must include the execution of at least one RE- 
TURN statement. Control must not be passed to the output procedure except when a related SORT 
statement is being executed. The output procedure may consist of any procedures needed to select, mod- 
ify, or copy the records that are being returned, one at a time in sorted order, from the sort file. The 
restrictions on the procedural statements within the output procedure are as follows: 


a. The output procedure must not contain any SORT or MERGE statements. 

b. The output procedure must not contain any explicit transfers of control to points outside the output 
procedure. ALTER, GO TO, and PERFORM statements in the output procedure are not permitted 
to refer to procedure-names outside the output procedure. COBOL74 statements that cause an im- 
plied transfer of control to declaratives are allowed. 

c. The remainder of the PROCEDURE DIVISION must not contain any transfers of control to points 
inside the output procedure. ALTER, GO TO, and PERFORM statements in the remainder of the 
PROCEDURE DIVISION are not permitied to refer to procedure-names within the output proce- 
dure. 
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7. If an output procedure is specified, control passes to it after file-name-1 is sequenced by the SORT 
statement. The compiler inserts a return mechanism at the end of the last paragraph or section in the 
output procedure. When control passes the last statement in the output procedure, the return 
mechanism provides for termination of the sort and then passes control to the next executable statement 
after the SORT statement. Before entering the output procedure, the sort procedure reaches a point 
at which it can select the next record in sorted order when requested. The RETURN statements in the 
output procedure are the requests for the next record. 

8. If the USING phrase is specified, all the records in file-name-2 are transferred automatically to file- 
name-1. At the time of execution of the SORT statement, file-name-2 must not be open. The SORT 
statement automatically initiates the processing of, makes available the logical records for, and termi- 
nates the processing of file-name-2. These implicit functions are performed such that any associated 
USE procedures are executed. The terminating function for all files is performed as if a CLOSE state- 
ment, without optional phrases, had been executed for each file. The SORT statement also automatical- 
ly performs the implicit functions of moving the records from the file area of file-name-2 to the file 
area for file-name-1 and the release of records to the initial phase of the SORT operation. 

9. If the GIVING phrase is specified, all the sorted records in file-name-1 are automatically written on 
file-name-4 as the implied output procedure for this SORT statement. At the time of execution of the 
SORT statement file-name-4 must not be open. The SORT statement automatically initiates the process- 
ing, releases logical records to and terminates the processing of file-name-4. These implicit functions 
are performed so that any associated USE procedures are executed. The terminating function is per- 
formed as for a CLOSE statement, without optional phrases, had been executed for the file. The SORT 
statement also automatically performs the implicit functions of the return of the sorted records from 
the final phase of the SORT operation and the moving of the records from the file area for file-name- 
1 to the file area for file-nam 
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The START statement provides a basis for logical positioning within an indexed or relative file, for subsequent 
sequential retrieval of records. 


General Format: 


IS EQUAL TO 
IS = 


START file-name KEY 7s GREATER a data-name 


IS NOT LESS THAN 
IS NOT < 


[ ; INVALID KEY imperative-statement ] 


a nt eS lL tL a SS 


NOTE 
The required relational characters *>°, °*<’, and ’=’ are not underlined to avoid 
confusion with other symbols such as =’, meaning greater than or equal to. 


Syntax Rules: 


1. File-name must be the name of an Indexed or Relative File. 

2. File-name must be the name of a file with sequential or dynamic access. 

3. Data-name may be qualified. 

4. The INVALID KEY phrase must be specified if no applicable USE procedure is specified for file- 
name. 

5. If file-name is the name of an Indexed File, and if the KEY phrase is specified, data-name may refer- 
ence a data item specified as a record key associated with file-name. Data-name may reference any 
data item of category alphanumeric subordinate to the data-name of a data item specified as a record 
key associated with file-name whose leftmost character position corresponds to the leftmost character 
position of that record key data item. 

6. Data-name, if specified for a Relative File, must be the data item specified in the RELATIVE KEY 
phrase of the associated file control entry. 


General Rules: 


1. File-name must be open in the INPUT or [-O mode at the time that the START statement is executed. 
Refer to the OPEN statement in this section. 

2. If the KEY phrase is not specified, the relational operator “IS EQUAL TO?’ is implied. 

3. The type of comparison specified by the relational operator in the KEY phrase occurs between a key 
associated with a record in the file referenced by file-name and a data item as specified in General 
Rule 5. If file-name references an indexed file and the operands are of unequal size, comparison pro- 
ceeds as though the longer operand were truncated on the right, so that its length is equal to that 
of the shorter operand. All other nonnumeric comparison rules apply except that the presence of the 
PROGRAM COLLATING SEQUENCE clause has no effect on the comparison. Refer to Comparison 
of Nonnumeric Operands in this section. 
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a. The current record pointer is positioned to the first logical record currently existing in the file 
whose key satisfies the comparison. 

b. If the comparison is not satisfied by any record in the file, an INVALID KEY condition exists, 
the execution of the START statement is unsuccessful, and the position of the current record 
pointer is undefined. Refer to Invalid Key Condition in Section 5. 


. The execution of the START statement causes the value of the FILE STATUS data item, if any, asso- 


ciated with file-name to be updated. Refer to J-O Status in Section 5. 


. For an Indexed File using the KEY phrase, the comparison described in General Rule 3 uses the data 


item referenced by data-name. 


. For an Indexed File not using the KEY phrase, the comparison described in General Rule 3 uses the 


data item referenced in the RECORD KEY clause associated with file-name. 


. For a Relative File, the comparison described in General Rule 3 uses the data item referenced by the 


RELATIVE KEY clause associated with file-name. 


. Upon completion of the successful execution of the START statement, a key of reference is estab- 


lished and used in subsequent Format 1 READ statements as follows: 


a. If the KEY phrase is not specified, the prime record key specified for file-name becomes the key 
of reference. 

b. If the KEY phrase is specified, and data-name is specified as a record key for file-name, that rec- 
ord key becomes the key of reference. 

c. If the KEY phrase is specified, and data-name is not specified as a record key for file-name, the 
record key whose leftmost character position corresponds to the leftmost character position of the 
data item specified by data-name, becomes the key of reference. 

d. Refer to the READ statement in this section. 


. For an Indexed File, if the execution of the START statement is not successful, the key of reference 


is undefined. 
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The STOP statement causes a permanent or temporary suspension of the execution of the object program. 


General Format: 


STOP | RUN } | 
— literal | 


aE 


Syntax Rules: 


1. The literal may be numeric, nonnumeric, or any figurative constant except ALL. 
2. If the literal is numeric, then it must be an unsigned integer. 


3. If a STOP RUN statement appears in a consecutive sequence of imperative statements within a sen- 
tence, it must appear as the last statement in that sequence. 


General Rules: 


1. If the RUN phrase is used, then the ending procedure established by the installation and/or the com- 
piler is instituted. 


2. If STOP literal is specified, the literal is displayed on the Operator Display Terminal (ODT), and the 
program issues an ACCEPT message. When the operator enters the AX message, continuation of the 
object program begins with the next executable statement in sequence. 
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STRING 


The STRING statement concatenates partial or complete contents of two or more data items into a single data 
item. 


General Format: 


identifier-1 identifier-2 
STRING , 
literal-1 literal-2 
identifier-3 
DELIMITED BY literal-3 
SIZE 


-identifier-4 | 
literal-4 literal-5  identifier-6 
DELIMITED BY literal-6 
SIZE 


INTO identifier-7 [WITH POINTER _ identifier-8 ] 


[; ON OVERFLOW _ imperative-statement ] 


ee ES PERC CECE EA i A RY 


Syntax Rules: 


1. Each literal may be any figurative constant without the optional word ALL. 

2. All literals must be described as nonnumeric literals, and all identifiers, except identifier-8, identifier- 
9, and identifier-10, must be described implicitly or explicitly, as usage is DISPLAY. 

3. Identifier-7 must represent an alphanumeric data item without editing symbols or the JUSTIFIED 
clause. 

4. Identifier-8 must represent an elementary numeric integer data item of sufficient size to contain a value 
equal to the size of the area referenced by identifier-7 plus 1. The symbol ’P’ may not be used in 
the PICTURE character-string of identifier-8. 

5. Where identifier-1, identifier-2, ..., or identifier-3 is an elementary numeric data item, it must be de- 
scribed as an integer without the symbol ’P’ in the PICTURE character-strin 


General Rules: 


1. All references to identifier-1, identifier-2, identifier-3, identifier-9, literal-1, literal-2, literal-3, and inte- 
ger-1 apply equally to identifier-4, identifier-5, identifier-6, identifier-10, literal, literal-5, literal-6 and 
integer-2, respectively, and all recursions thereof. 
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7-116 


. Identifier-1, literal-!, identifier-2, literal-2, represent the sending items. Identifier-7 represents the re- 


ceiving item. 


. Literal-3, identifier-3, indicate the character(s) delimiting the move. If the SIZE phrase is used, the 


complete data item defined by identifier-1, literal-1, identifier-2, literal-2, is moved. When a figurative 
constant is used as a delimiter, it stands for a single character nonnumeric literal. 


. When a figurative constant is specified as literal-1, literal-2, literal-3, it refers to an implicit one char- 


acter data item whose usage is DISPLAY. 


. When the STRING statement is executed, the transfer of data is governed by the following rules: 


a. Those characters from literal-1, literal-2, or from the contents of the data item referenced by iden- 
tifier-1, identifier-2, are transferred to the contents of identifier-7 according to the rules for alpha- 
numeric to alphanumeric moves: however, no space-filling is provided. Refer to the MOVE State- 
ment in this section. 

b. If the DELIMITED phrase is specified without the SIZE phrase, the contents of the data item 
referenced by identifier-1, identifier-2, or the value of literal-1, literal-2, are transferred to the re- 
ceiving data item in the sequence specified in the STRING statement beginning with the leftmost 
character and continuing from left to right until the end of the data item is reached, or until the 
character(s) specified by literal-3, or by the contents of identifier-3 are encountered. The charac- 
ter(s) specified by literal-3 or by the data item referenced by identifier-3 are not transferred. 

c. If the DELIMITED phrase is specified with the SIZE phrase, the entire contents of literal-1, liter- 

al-2, or the contents of the data item referenced by identifier-1, identifier-2, are transferred, in 

the sequence specified in the STRING statement, to the data item referenced by identifier-7 until 
Aata 4 : : 


. If the POINTER phrase is specified, identifier-8 is explicitly available to the programmer, and he 


is responsible for setting its initial value. The initial value must not be less than 1. 


. If the POINTER phrase is not specified, the following General Rules 8, 9, 10, 11, and 12 apply as 


if the user had specified identifier-8 with an initial value of 1. 


. When characters are transferred to the data item referenced by identifier-7, the moves behave as 


though the characters were moved one at a time from the source into the character position of the 
data item referenced by identifier-7 designated by the value associated with identifier-8. Identifier- 
8 is increased by one before the move of the next character. The value associated with identifier- 


& is changed during execution of the STRING statement only by the behavior specified in this general 
rule. 


. At the end of execution of the STRING statement, only the portion of the data item referenced by 


identifier-7 that was referenced during the execution of the STRING statement is changed. All other 
portions of the data item referenced by identifier-7 contain data that was present before this execu- 
tion of the STRING statement. 

If at any point at or after initialization of the STRING statement, but before execution of the 
STRING statement is completed, the value associated with identifier-8 is either less than | or greater 
than the number of character positions in the data item referenced by identifier-7, no additional data 
is transferred to.the data item referenced by identifier-7, and the imperative statement in the ON 
OVERFLOW phrase is executed, if specified. 


. If the ON OVERFLOW phrase is not specified, when the conditions described in General Rule 10 


are encountered, control is transferred to the next executable statement. 
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12. Integer-!, identifier-9, indicate the number of characters to be moved. 
Examples: 
Assume that: 


NOW = A, B. C, D ... Z (26 characters) 
CHNG = GHI 

LATER = LLL 

AFTR = A, B, C, D ... Z (26 characters) 
THEN = TTTT 


I. STRING LATER, ‘‘NEW’’, THEN, SPACE DELIMITED BY SIZE INTO AFTR 


After execution AFTR contains: 


EPEILINTE |e] i TT] [L|MN}O}P jQie}s] T]ulviwpdy]z 
2. MOVE |! TO HERE. 


STRING THEN, ‘‘NEXT’’, SPACE, LATER DELIMITED BY SIZE; NOW DELIMITED BY 
CHNG INTO AFTR WITH POINTER HERE 


After execution AFTR contains: 


] 
rr yr} Ne] 


“Plc Plc isitelvwed iz 


not changed ; 


3. MOVE 8 TO HERE. 


STRING THEN, ““NEXT’’, SPACE, LATER DELIMITED BY SIZE; NOW DELIMITED BY 
CHNG INTO AFTR WITH POINTER HERE 


After execution AFTR contains: 


8 
BOSH ERERRRENE 


| not changed i 


xr} |e jefe }afe)c|p le |r z, 
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The SUBTRACT statement is used to subtract one or the sum of two or more numeric data items from one 
or more items, and set the values of one or more items equal to the results. 


General Format: 
Format |: 


pm ere er nthe rere cn nent nan nr ree EE EE A 


identifier-1 ; identifier-2. 
SUBTRACT ... FROM identifier-m [ROUNDED] 
literal-] , literal-2 
[ , identifier-n [ROUNDED]] ... [;ON SIZE ERROR imperative-statement ] 
Format 2: 
identifier-1 , identifier-2 identifier-m 
SUBTRACT ... EROM 
literal-1 , literai-2 literal-m 
GIVING identifier-n [ROUNDED | [, identifier-o [ROUNDED] ] ae 
[ >ON SIZE ERROR imperative-statement ] 
Format 3: 
CORRESPONDING 
SUBTRACT identifier-1 FROM identifier-2 [ROUNDED] 
CORR 


[; ON SIZE ERROR imperative-statement ] 
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Syntax Rules: 


I. 


Zi 
os 


Each identifier must refer to a numeric elementary item except that 


a. In Format 2, each identifier following the word GIVING must refer to either an elementary numer- 
ic item or to an elementary numeric edited item. , 
b. In Format 3, each identifier must refer to a group item. 


Each literal must be a numeric literal. 
CORR is an abbreviation for CORRESPONDING. 


General Rules: 


I. 


Zs 


Additional rules and explanations related to this statement are given in the appropriate paragraphs. 
Refer to Intermediate Data Item, ROUNDED Phrase, SIZE ERROR Phrase, CORRESPONDING 
Phrase, Arithmetic Statements, Overlapping Operands, and Multiple Results in Arithmetic Statements 
in this section. 

In Format 1, all literals or identifiers preceding the word FROM are added together, and this total 
is subtracted from the current value of identifier-m. The result is immediately stored into identifier- 
m, and this process is repeated respectively for each operand following the word FROM. 


. In Format 2, all literals or identifiers preceding the word FROM are added together, the sum is sub- 


tracted from literal-m or identifier-m, and the result of the subtraction is stored as the new value of 
identifier-n, identifier-o, etc. 


. If Format 3 is used, data items in identifier-! are subtracted from and stored into corresponding data 


items in identifier-2. 


Examples: 


Assume as initial values : X=2, Y=10, Z=15, TOT=50, and SUB=30. 


Format 1: 
SUBTRACT X FROM TOT. results TOT=48 
SUBTRACT X, Y, Z, FROM TOT, SUB. results TOT=23, SUB=3 
Format 2: 
SUBTRACT X, Y FROM SUB GIVING TOT. results TOT=18 
SUBTRACT X, Y,FROM Z GIVING TOT, SUB. results TOT=3, SUB=3 
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For Format 3 assume that the following structures have the initial value in parentheses. 


01 NOW Ol LATER 
02 AL 05 AL 
03 FO (8) 06 FO (10) 
03 RD (10) 06 XY (10) 
02 CR (20). 05 AB (10) 
02 TR (5) 05 TR (10) 


The following statement 
SUBTRACT CORRESPONDING NOW FROM LATER. 
results in 


02 LATER 
05 AL 
06 FO (2) 
06 XY ((10) 
O5 AB (10) 
05 TR (5) 


Note, the only data names whose values changed are FO and TR. 
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UNSTRING 


The UNSTRING statement causes contiguous data in a sending field to be separated and placed into one or 
more receiving fields. 


General Format:: 


Format |: 


UNSTRING identifier-1 


identifier-2 identifier-3 
DELIMITED BY [ALL] ,OR [ALL] 
literal-1 literal-2 


INTO identifier ts DELIMITER IN identifier-5 ] [ , COUNT IN identifier-6 | 
|» identifier-7 [, DELIMITER IN identifier-8] [, COUNT IN identifier-9 J | 
[WITH POINTER identifier-10] [| TALLYING IN identifier-11] 


[; ON OVERFLOW imperative-statement } 


Format 2: 


UNSTRING | identifier-1 


identifier-1 2 
INTO identifier-4 FOR 
integer-1 


identifier-13 
, identifier-7 FOR os 
integer-2 


[WITH POINTER identifier-10] [TALLYING IN identifier-11 ] 


[; ON OVERFLOW imperative-statement | 
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Syntax 
I. 


Ze 


wa 


General 


I. 


10. 


11. 


7-122 


Rules: 


Each literal must be a nonnumeric literal. In addition, each literal may be any figurative constant with- 
out the optional word ALL. . 
Identifier-1, identifier-2, identifier-3, identifier-5, and identifier-8 must be described, implicitly or ex- 
plicitly, as alphanumeric data items. 


. Identifier4 and identifier-7 may be described as either alphabetic, alphanumeric, or numeric and must 


be described as usage is DISPLAY. However, the alphabetic symbol ’B’ and the numeric symbol ’P’ 
may not be used in the PICTURE character-string. 


. Identifier-6, identifier-9, identifier-10, and identifier-11 must be described as elementary numeric inte- 


ger data items (except that the symbol ’P’ may not be used in the PICTURE character-string). 


. No identifier may name a level 88 entry. 
. The DELIMITER IN phrase and the COUNT IN phrase may be specified only if the DELIMITED 


BY phrase is specified. 


. [dentifier-12 and identifier-13 must be described as elementary numeric integer data items (except that 


the symbol ’P’ may not be used in the PICTURE character-string). 


Rules: 


All references to identifier-2, literal-1, identifier-4, identifier-5, identifier-6, identifier-12, and integer- 
1, apply equally to identifier-3, literal-2, identifier-7, identifier-8 identifier-13, and integer-2, respec- 
tively, and all recursions thereof. 


. Identifier-1 represents the sending area. 
. Identifier-4 represents the data receiving area. Identifier-S represents the receiving area for delimiters. 
. Literal-1 or the data item referenced by identifier-2 specifies a delimiter. In Format-2, integer-1 or 


the data item referenced by identifier-12 specifies a count of the number of characters within identifi- 
er-! which is moved to identifier-4. If the nurnber of characters remaining in the data item referenced 
by identifier-1 is less than the number of characters specified by integer-1 or the data item referenced 
by identifier-12, then the short field is transferred according to General Rule 13c. 


. Identifier-6 represents the count of the number of characters within the data item referenced by iden- 


tifier-1 isolated by the delimiters for the move to identifier4. This value does not include a count 
of the delimiter character(s). 


. The data item referenced by identifier-!0 contains a value that indicates a relative character position 


within the area defined by identifier-1. 


. The data item referenced by identifier-11 is a counter that records the number of data items acted 


upon during the execution of an UNSTRING statement. 


. When a figurative constant is used as a delimiter, it stands for a single character nonnumeric literal. 


When the ALL phrase is specified, one occurrence or two or more contiguous occurrences of literal- 
1 (figurative constant or not) or the contents of the data item referenced by identifier-2 are treated 


as only one occurrence, and this occurrence is moved to the receiving data item according to General 
Rule 13d. 


. When any examination encounters two contiguous delimiters, the current receiving area is either 
space or zero filled according to the description of the receiving area. 

Literal-1 or the contents of the data item referenced by identifier-2 can contain any character in the 
computer’s character set. 

Each literal-1 or data item referenced by identifier-2 represents one delimiter. When a delimiter con- 
tains two or more characters, all of the characters must be present in contiguous positions of the 
sending item, and in the order given to be recognized as a delimiter. 


. When two or more delimiters are specified in the DELIMITED BY phrase, an ’OR’ condition exists 


between them. Each delimiter is compared to the sending field. If a match occurs, the character(s) 
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in the sending field are considered to be a single delimiter. No character(s) in the sending field can 
be considered a part of more than one delimiter. 


Each delimiter is applied to the sending field in the sequence specified in the UNSTRING statement. 
13. When the UNSTRING statement is initiated, the current receiving area is the data item refer- 
enced by identifier-4. Data is transferred from the data item referenced by identifier-!| to the data 
item referenced by identifier-4 according to the following rules: 


a. If the POINTER phrase is specified, the string of characters referenced by identifier-1 is examined 
beginning with the relative character position indicated by the contents of the data item referenced 
by identifier-10. If the POINTER phrase is not specified, the string of characters is examined be- 
ginning with the leftmost character position. 

b. If the DELIMITED BY phrase is specified, the examination proceeds left to right until a delimiter 
specified by the value of literal-1 or the data item referenced by identifier-2 is encountered. Refer 
to General Rule 11. If the DELIMITED BY phrase is not specified, the number of characters 
examined is equal to the size of the current receiving area. However, if the sign of the receiving 
item is defined as occupying a separate character position, the number of characters examined 
is one less than the size of the current receiving area. 


If the end of the data item referenced by identifier-! is encountered before the delimiting condi- 
tion is met, the examination terminates with the last character examined. 


c. The characters examined, excluding any delimiting characters(s), are treated as an elementary al- 
phanumeric data item, and are moved into the current receiving area according to the rules for 
the MOVE statement. Refer to the MOVE statement in this section. 

d. If the DELIMITER IN phrase is specified, the delimiting character(s) are treated as an elementary 
alphanumeric data item and are moved into the data item referenced by identifier-5 according to 
the rules for the MOVE statement. Refer to the MOVE statement for additional information. If 
the delimiting condition is the end of the data item referenced by identifier-!, then the data item 
referenced by identifier-5 is space-filled. 

e. If the COUNT IN phrase is specified, a value equal to the number of characters examined, ex- 
cluding any delimiter character(s), is moved into the area referenced by identifier-6 according to 
the rules for an elementary move. 

f. If the DELIMITED BY phrase is specified, the string of characters is further examined beginning 
with the first character to the right of the delimiter. If the DELIMITED BY phrase is not 
specified, the string of characters is further examined beginning with the character to the right 
of the last character transferred. 

g. After data is transferred to the data item referenced by identifier4, the current receiving area is 
the data item referenced by identifier-7. The behavior described in General Rules 13b through 13f 
is repeated either until all the characters are exhausted in the data item referenced by identifier- 
| or until there are no more receiving areas. 


14. The initialization of the contents of the data items associated with the POINTER phrase or the 
TALLYING phrase is the responsibility of the user. 

15. The contents of the data item referenced by identifier-10 are incremented by one for each character 
examined in the data item referenced by identifier-1. When the execution of an UNSTRING state- 
ment with a POINTER phrase is completed, the contents of the data item referenced by identifier- 
10 will be a value equal to the initial value plus the number of characters examined in the data item 
referenced by identifier-1. 

16. When the execution of an UNSTRING statement with a TALLYING phrase is completed, the con- 
tents of the data item referenced by identifier-!1 contains a value equal to its initial value plus the 
number of data receiving items acted upon. 
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17. Any of the following situations causes an overflow condition: 


a. 


b. 


a 


18. An 


An UNSTRING statement is initiated, and the value in the data item referenced by identifier- 
10 is less than 1 or greater than the size of the data item referenced by identifier-1. 

If, during execution of an UNSTRING statement, all data receiving areas have been acted upon, 
and the data item referenced by identifier-| contains characters that have not been examined. 


. An UNSTRING is initiated, and the value in the data item referenced by identifier-12 is less than 


I or greater than the size of the data item referenced by identifier-!. 


. If, during execution of an UNSTRING statement, all data receiving areas have been acted upon, 


and the number of characters acted upon is less than the value of identifier-12 or integer-1. 


overflow condition occurs if during the execution of an UNSTRING, the value of the pointer 


item (identifier-10) becomes less than or greater than the number of characters in the sending item, 
or if all the receiving items have been acted upon and the sending item still contains data characters 
that have not been examined. 


Wh 
phr 


en an overflow condition exists, the UNSTRING operation is terminated. If an ON OVERFLOW 
ase has been specified, the imperative statement included in the ON OVERFLOW phrase is 


executed. If the ON OVERFLOW phrase is not specified, control is transferred to the next 


exe 


cutable statement. 


19. The evaluation of subscripting and indexing for the identifiers is as follows: 


a. 


b. 


Examples: 


Assume that 


Any subscripting or indexing associated with identifier-1, identifier-10, identifier-11.1s evaluated 
only once, immediately before any data is transferred as a result of the execution of the UNSTR- 
ING statement. 

Any subscripting or indexing associated with identifier-2, identifier-3, identifier4, identifier-5, 
identifier-6 is evaluated immediately before the transfer of data into the respective data item. 


ALPHA = ABCHXEFGXXZXIJKL, that the size of each of the receiving data items — ITEM- 


1, ITEM-2, or ITEM4 is equal to 5, and that ITEM-3 is equal to 4. 


1. UNSTRING ALPHA INTO ITEM-1, ITEM-2, ITEM-3, ITEM-4 


2. UNSTRING ALPHA DELIMITED BY ‘‘X”? INTO ITEM-1, ITEM-2, ITEM-3 


3. UNSTRING ALPHA DELIMITED BY ALL ‘‘X”’’ INTO ITEM-1, ITEM-2, ITEM-3 


4. UNSTRING ALPHA DELIMITED BY ‘‘X”? OR ‘tH’ INTO ITEM-1, ITEM-2, ITEM-3 


After execution the contents of the receiving fields are as follows. 
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ITEM - | ITEM - 2 ITEM - 3 ITEM - 4 


1. Lalelehelx} [elefcbtx] [2b s} Ife TT 
FIs] T] LL 
3 [ablctH] | Elle] T ] LL | 
4. LITT TI 
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The USE statement specifies procedures for input-output error handling that are in addition to the standard 
procedures provided by the input-output control system. 


General Format: 


( EXCEPTION 
USE AFTER STANDARD PROCEDURE ON 


(ERROR 


file-name-|! [, file-name-2 ] 
INPUT 

OUTPUT 
10 

EXTEND 


Syntax Rules: 


1. A USE statement, when present, must immediately follow a section header in the Declaratives Section 
and must be followed by a period followed by a space. The remainder of the section must consist 
of zero, one. or more procedural paragraphs that define the procedures to be used. 

2. The USE statement only defines the conditions calling for the execution of the USE procedures, and 
is never executed. 

3. The same file-name can appear in a different specific arrangement of the format. Appearance of a file- 
name in a USE statement must not cause the simultaneous request for execution of more than one 
USE procedure. 

4. The words ERROR and EXCEPTION are synonymous and may be used interchangeably. 

5. The files implicitly or explicitly referenced in a USE statement need not all have the same organization 
or access. 

6. EXTEND can only be used for Sequential Files. 


General Rules: 


1. The designated procedures are executed two ways: first, by the input-output system after completing 
the standard input-output error routine, or second, upon recognition of the INVALID KEY or AT 
END conditions when the INVALID KEY phrase or AT END phrase has not been specified in the 
input-output statement. 

2. After execution of a USE procedure, control is returned to the routine that caused the USE proce- 
dures to be invoked. 

3. Within a USE procedure, there must not be any reference to any nondeclarative procedures. Con- 
versely, in the nondeclarative portion, there must be no reference to procedure-names that appear in 
the declarative portion, except that PERFORM statements may refer to a USE statement or to the 
procedures associated with such a USE statement. 

4. Within a USE procedure, there must not be the execution of any statement that causes the execution 
of a previously invoked USE procedure that has not yet returned control to the invoking routine. 
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WRITE 


The WRITE statement releases a logical record for an output file. It can also be used for vertical positioning 
of lines within a logical page. 


General Format: 


Format |: 


WRITE record-name [FROM identifier-1 | 


identifier-2 LINE 
BEFORE aitetee| \ Peal 
ADVANCING : 
AFTER l mnemonic-name | 
' PAGE \ 


( END-OF-PAGE 


; AT imperative-statement 
(Eop 
Format 2 
WRITE record-name [ FROM identifier-1 | 
[; INVALID KEY imperative-statement ] 
Format 3: 


Syntax Rules: 


1 
2 


. Record-name and identifier-1 must not reference the same storage area. 
. When mnemonic-name is specified, it must be associated with a CHANNEL number. The mnemoniic- 
name is defined in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION. 

3. The record-name is the name of a logical record in the FILE SECTION of the DATA DIVISION and 
may be qualified. 

4, When identifier-2 is used in the ADVANCING phrase, it must be the name of an elementary integer 
data item. 

5. Integer-1 or the value of the data item referenced by identifier-2 may be zero. 

6. If the END-OF-PAGE phrase is specified, the LINAGE clause must be specified in the file description 
entry (FD) for the associated file. 

7. The words END-OF-PAGE and EOP are equivalent. 
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8. The ADVANCING mnemonic-name phrase cannot be specified when writing a record to a file whose 
file description entry contains the LINAGE clause. 

9. Format 1 must be used if the ACTUAL KEY phrase is not specified in the file-control entry for the 
file associated with record-name. Format 2 must be used if the ACTUAL KEY phrase is specified in 
the file-control entry for the file associated with record-name. 

10. Format 2 is used for Relative and Indexed Files and also Sequential Files in the Random access mode. 

11. In Format 2, the INVALID KEY phrase must be specified if an applicable use procedure is not specified 


1108883-001 7-126C 


B 1000 Systems COBOL74 Reference Manual 
Procedure Division 


WRITE 


General Rules: 
These rules follow inder the following headings: 
Mass and Non-Mass Storage Files 
Non-Mass Storage Files 
Mass Storage Files 
a) Sequential Files 


b) Indexed Files 
c) Relative Files 


Mass and Non-Mass Storage Files 


1. The associated file must be open in the OUTPUT, INPUT-OUTPUT, or EXTEND mode at the time 
of the execution of this statement, arid must not be a SORT or MERGE File. Refer to the OPEN state- 
ment in this section. 

2. The execution of a WRITE statement has no effect upon either the contents or accessibility of the rec- 
ord area. If the associated file is named in the SAME RECORD AREA clause, the logical record is 
also available to the program as a record of other files referenced in the same SAME RECORD AREA 
clause; the associated output file and the file associated with record-name. 

3. The results of the execution of the WRITE statement with the FROM phrase is equivalent to the execu- 
tion of 


a. The statement: 

MOVE identifier-1 TO record-name 

according to the rules specified for the MOVE statement, followed by 
b. The same WRITE statement without the FROM phrase. 


The contents of the record area before the execution of the implicit MOVE statement have no effect 
on the execution of this WRITE statement. 


4. The current record pointer is unaffected by the execution of a WRITE statement. 

5. The execution of the WRITE statement causes the value of the FILE STATUS data item, if any, associ- 
ated with the file to be updated. Refer to I-O Status in Section 5. 

6. The maximum record size for a file is established when the file is created and must not subsequently 
be changed. 

7. The number of character positions on a mass storage device required to store a logical record in a file 
may or may not be equal to the number of character positions defined by the logical description of 
that record in the program. 

8. The execution of the WRITE statement releases a logical record to the operating system. 
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Non-Mass Storage Files 
9. Both the ADVANCING phrase and the END-OF-PAGE phrase allow control of the vertical position- 


7-128 


10. 


ing of each line on a representation of a printed page. If the ADVANCING phrase is not used, auto- 
matic advancing is provided to act as if the user had specified AFTER ADVANCING | LINE. If 
the ADVANCING phrase is used, advancing is provided as follows: 


a. If identifier-2 is specified, the page is advanced the number of lines equal to the current value 
of identifier-2. 

b. If integer-I is specified, the page is advanced the number of lines equal to the value of integer- 
I, 

c. If mnemonic-name is specified, the page is advanced to the line number corresponding to the 
CHANNEL number. 

d. If the BEFORE phrase is used, the line ‘s written before the page is advanced according to rules 
9a, 9b, and 9c. 

e. If the AFTER phrase is used, the line is written after the page is advanced according to rules 
9a, 9b, and 9c. 

f. If PAGE is specified. the record is written on the logical page BEFORE or AFTER (depending 
on the phrase used) the device is repositioned to the next logical page. If the record to be written 
is associated with a file containing a LINAGE clause, the repositioning is to the first line that 
can be written on the next logical page as specified in the LINAGE clause. If the record to be 
written is associated with a file which does not contain a LINAGE clause, the repositioning is 
to CHANNEL | or line | of the next logical page when appropriate for the hardware device. 


If PAGE has no meaning in conjunction with a specific device, then advancing is provided by 
the compiler to act as if the user had specified BEFORE or AFTER ADVANCING | LINE. In 
either case, page positioning depends on the phrase used. 


If the logical end of the page is reached during the execution of a WRITE statement with the END- 
OF-PAGE phrase, the imperative-statement specified in the END-OF-PAGE phrase is executed. The 
logical end is specified in the LINAGE clause associated with record-name. 


. An end-of-page condition is reached whenever the execution of a given WRITE statement with the 


END-OF-PAGE phrase causes printing or spacing within the footing area of a page body. This occurs 
when the execution of such a WRITE statement causes the LINAGE-COUNTER to equal or exceed 
the value specified by integer-2 or the data item referenced by data-name-2 of the LINAGE clause, 
if specified. In this case, the WRITE statement is executed and then the imperative statement in the 
END-OF-PAGE phrase is executed. 


An automatic page overflow condition is reached whenever the execution of a given WRITE state- 
ment (with or without an END-OF-PAGE phrase) cannot be fully accommodated within the current 
page body. 


Overflow occurs when a WRITE statement, if executed, causes the LINAGE-COUNTER to exceed 
the value specified by integer-| or to exceed the data item referenced by data-name-! of the 
LINAGE clause. In this case, the record is written (depending on the phrase used) on the logical 
page before or after the device is repositioned to the first line that can be written on the next logical 
page as specified in the LINAGE clause. The imperative statement in the END-OF-PAGE clause, 
if specified, is executed after the record is written and the device has been repositioned. 


If integer-2 or data-name-2 of the LINAGE clause is not specified, no end-of-page condition distinct 
from the page overflow condition is detected. In this case, the end-of-page condition and page over- 
flow condition occur simultaneously. 
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If integer-2 or data-name-2 of the LINAGE ‘clause is specified, but the execution of a given WRITE 
statement would cause LINAGE-COUNTER to simultaneously exceed the value of both integer-2 
(or the data item referenced by data-name-2) and integer-1 (or the data item referenced by data-name- 
1), then the operation proceeds as if integer-2 or data-name-2 had not been specified. 


12. After the recognition of an end-of-reel or an end-of-unit of an output file that is contained on more 
than one physical reel/unit, the WRITE statement performs the following operations: 


a. The standard ending reel/unit label procedure. 
b. A reel/unit swap. 
c. The standard beginning reel/unit label procedure. 


Mass Storage Files 


13. When the INVALID KEY condition is recognized, the execution of the WRITE statement is unsuc- 
cessful. The contents of the record area are unaffected and the FILE STATUS data item, if any, 
associated with the file-name of the associated file is set to a value indicating the cause of the condi- 
tion. Execution of the program proceeds according to the rules stated for the INVALID KEY condi- 
tion. Refer to I-O Status in Section 5. 


SEQUENTIAL FILES: 


14, When an attempt is made to write beyond the externally defined boundaries of a Sequential File. 
an exception condition exists and the contents of the record area are unaffected. The following action 
takes place: 


a. The value of the FILE STATUS data item, if any, of the associated file is set to a value indicating 
a boundary violation. Refer to I-O Status in Section 5. 

b. If a USE AFTER STANDARD EXCEPTION declarative is explicitly or implicitly specified for 
the file, that declarative procedure is then executed. 

c. If a USE AFTER STANDARD EXCEPTION declarative is not explicitly or implicitly specified 
for the file, the result is undefined. 


15. If the ACTUAL KEY phrase is specified for a mass storage file whose access mode is sequential, 
the successful execution of a Format 2 WRITE statement updates the contents of the ACTUAL KEY 
data item to the ordinal number of the logical record written. 

16. For a mass storage file whose access mode is sequential, the execution of a Format 2 WRITE state- 
ment releases the record area to the next logical record in the file. 

17. For a mass storage file whose access mode is sequential, the INVALID KEY condition exists when 
a maximum logical size is specified for the file and no more logical records may be written. 

18. For a mass storage file whose access mode is random, the execution of a Format 2 WRITE statement 
releases the record area to the logical record of the file specified by the contents of the ACTUAL 
KEY data item. 

19. For a mass storage file whose access mode is random, an INVALID KEY condition exists when 
the value of the ACTUAL KEY data item is less than | or greater than the ordinal number of the 
last logical record allowed for the file, provided that the maximum logical size of the file is specified. 
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INDEXED FILES: 


24. For an Indexed File, execution of the WRITE statement causes the contents of the record area to be 
released. The contents of the record keys are utilized such that subsequent access of the record key 
may be made based upon any of those specified record keys. 

25. The value of the prime record key must be unique within the records in the Indexed File. 

26. In an Indexed File, the data item specified as the prime record key must be set by the program to the 
desired value before the execution of the WRITE statement. 

27. If the sequential access mode is specified for an Indexed File, records must be released in ascending 
order of prime record key values. 

28. If random or dynamic access mode is specified for an Indexed File, records may be released in any 
program-specified order. 

29. When the ALTERNATE RECORD KEY clause is specified in the file control entry for an Indexed File, 
the value of the alternate record key may be nonunique only if the DUPLICATES phrase is specified 
for that data item. In this case, the storage of records is such that when records are accessed sequential- 
ly, the order of retrieval of those records is the order in which they are released. 

30. The INVALID KEY condition exists under any of the following circumstances: 


a. When sequential access mode is specified for a file opened in the output mode, and the value of 
the prime record key is not greater than the value of the prime record key of the previous record. 

b. When the file is opened in the output or I-O mode, and the value of the prime record key is equal 
to the value of a prime record key of a record already existing in the file. 

c. When the file is opened in the output or I-O mode, and the value of an alternate record key for 
which duplicates are not allowed equals the corresponding data item of a record already existing 
in the file. 

d. When an attempt is made to write beyond the externally-defined boundaries of the file. 


RELATIVE FILES: 


31. When a Relative File is opened in the output mode, records may be placed into the file in one of the 
following ways: 


a. If the access mode is sequential, the WRITE statement causes a record to be released. The first rec- 
ord has a relative record number of 1 and subsequent records released have relative record numbers 
of 2, 3, 4, and so on. If the RELATIVE KEY data item has been specified in the file control entry 
for the associated file, the relative record number of the record just released is placed into the REL- 
ATIVE KEY data item during execution of the WRITE statement. 

b. If the access mode is random or dynamic before the execution of the WRITE statement, the value 
of the RELATIVE KEY data item must be initialized in the program with the relative record number 
to be associated with the record in the record area. That record is then released by execution of 
the WRITE statement. : 


32. When a Relative File is opened in the I-O mode and the access mode is random or dynamic, records 
are to be inserted in the associated file. The value of the RELATIVE KEY data item must be initialized 
by the program with the relative record number to be associated with the record in the record area. 
Execution of a WRITE statement then causes the contents of the record area to be released. 

33. The INVALID KEY condition exists under any of the following circumstances: 


a. When the access mode is random or dynamic, and the RELATIVE KEY data item specifies a record 
which already exists in the file. 
b. When an attempt is made to write beyond the externally defined boundaries of the file. 
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File Attribute 
Change 


GE statement allows the procedural modification or inition of the attributes of a file. 


(OF. ao. 
file-name 


numeric literal 
je is specified. 
at represents 
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Data Base 
SET SELECTION EXPRESSIONS 


IN EXPRESSION 


n addition. it also allows specifi- 


ially. By stat- 
R. all records 


y-condition of a set selection ex- 
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KEY CONDITION. 


KEY compton | 


The key-condition option specifies values to be used 10 locate specific records in u data set referenced bya partic: 
ular set or subset. 


There are two categories of key conditions: simple key conditions and complex key conditions. Each may be en- 
closed within any number of paired parentheses, in wich case the category is not changed. 


Simple Key Condition 


General Format: 


Jidentifier ¢ 
ttterat = 


Sannnnhandahanammmmeemnatntcoemcnen cach emen ieee ice OTe CLE 


data-name relatrional-operator 


be a data-name in the key. 
or is any relational operator as described in the subsection: entitl d Relation Condition 


“in: Sectior 
General Rules: 
1. 1f an AT key-condition is used, then the first record satisfying that condition is retrieved. By using 


NEXT with key-condition in an iterative loop, all records satisfying the key: ‘condition: are retrieved. Or- 
der ot retrieval is mot specified, 


ey Condition. 


“The rules | tor + forming a complex key condition are the same as those for complex conditions witty three ence, 
tions: © 


1. Each reference to ‘condition’? must be taken to mean “key condition.” 
2, All items of the key must be in order. 
3. The connective used in complex key conditions must be AND. 


eneralized Selection Expression 


nievalized selection expression feature allows programs to request records from a path, while specifying as 
or as little information about the key for that path as is available. 


The use of complex keys in a KIND verb can be coded as lollows: 


FIND FTIR AT 
GROUP-CODE = GROUPNO AND 
COUNTRY-DISTRICT = CISTNO AND 
BRANCH = BRANCHNO AND 
SEQ = SEA. 
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EXCEPTION CATEGORIES 


OBOL74 program one special re h contains exception 


ition occurred. 
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EXCEPTION CATEGORIES 


Pe ob 5 : Table 9-1. Exception Category Names and Values. (Cont) 


lid or created. 


NOTLOCKED S  § Path state must be vi 


| OPENERROR Ce Data base not initialized. 
oe : as Already opened by this program. 
R on of data base does not match 


ys access the information 
e when six data bases 


‘not match 
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STORE 


The STORE statement is used to return a modified record to the data set or to place a newly created record 
into the data: set. 


General ‘Format: : 


STORE  data-set-name [ON EXCEPTION statement ] | | 


‘a set. Prior to being stored the 
ks fail. the STORE ope 


the date’ set ty Soe \TE — RECREAT! 
ma locked state, md nt record path is defi ned t 


ath is defined and the current record is locked by this prograr 
Jin the data set. The recor nains locked. If the cur 
~@ ple. as it would be if ‘ord had been retrieved us 
an exception. - - = 
| actions are pesformed, deper on the prior operation: 


: EATE or RECREATE el ae 


E statement is sus 


ave. » clones the conditions. must 
ne the das ae . ae csi eee is 


r manual sub ts. a is Vie programmer’ 8 responsibility t to maintaio 
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DEBUG 


GENERAL 


The Debug section provides a means by which the user can describe a debugging algorithm, including the con- 
ditions under which data items or procedures are to be monitored during the execution of the object program. 


The decisions of what to monitor and what information to display on the output device are explicitly in the 
domain of the user. The COBOL74 debug facility simply provides a convenient access to pertinent information. 


LANGUAGE CONCEPTS 


The features of the COBOL74 language that support the Debug section are: 


. A compile-time switch called WITH DEBUGGING MODE. 
. An object-time switch. 

. A USE FOR DEBUGGING statement. 

. A special register called DEBUG-ITEM. 

. Debugging lines. 


DEBUG-ITEM 


mkt WN — 


The reserved word DEBUG-ITEM is the name for a special register generated automatically. Only one DE- 
BUG-ITEM is allocated per program. The names of the subordinate data items in DEBUG-ITEM are also re- 
served words. 


A COMPILE-TIME SWITCH 


The WITH DEBUGGING MODE clause is written as part of the SOURCE-COMPUTER paragraph. It serves 
as a compile-time switch over the debugging statements written in the program. 


AN OBJECT-TIME SWITCH 


An object-time switch (SW9), dynamically activates the debugging code inserted by the compiler. This switch 
cannot be addressed in the program; it is controlled outside the COBOL74 environment. If the switch is ON 
(SW9 = 1), all the effects of the debugging language written in the source program are permitted. If the switch 
is OFF (SW9 = 0), all the effects described in the USE FOR DEBUGGING statement are inhibited. Recompi- 
lation of the source program is not required to provide or take away this facility. 


The object-time switch has no effect on the execution of the object program if the WITH DEBUGGING 
MODE clause was not specified in the source program at compile time. 
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DEBUGGING LINES 


A debugging line is any line with the letter D in the indicator area (column 7), of the line. Any debugging 
line that consists solely of spaces from columns 8 to 72 is considered the same as a blank line. 


The contents of a debugging line must be such that a syntactically correct program is formed with or without 
the debugging lines being considered as comment lines. 


A debugging line is considered to have all the characteristics of a comment line, if the WITH DEBUGGING 
MODE clause is not specified in the SOURCE-COMPUTER paragraph. 


Successive debugging lines are allowed. Continuation of debugging lines is permitted, except that each 
continuation line must contain the letter D in the indicator area, and character-strings may not be broken 


across two lines. 


The OBJECT-COMPUTER paragraph must precede any debugging line in a program. 
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ENVIRONMENT DIVISION 


To use the debugging features, you must specify the WITH DEBUGGING MODE clause in the ENVIRON- 
MENT DIVISION. 


WITH DEBUGGING MODE 


The WITH DEBUGGING MODE clause indicates that all debugging sections and all debugging lines are to 
be compiled. Refer to Debugging Lines and USE FOR DEBUGGING in this section. If this clause is not 
specified, all debugging lines and sections are compiled as comment lines. 


General Format: 


| SOURCE-COMPUTER. computer-name [ WITH DEBUGGING MODE ] | 


General Rules: 


1. If the WITH DEBUGGING MODE clause is specified in the SOURCE-COMPUTER paragraph of the 
CONFIGURATION SECTION of a program, all USE FOR DEBUGGING statements and all debug- 
ging lines are compiled. 

2. If the WITH DEBUGGING MODE clause is not specified in the SOURCE-COMPUTER paragraph 
of the CONFIGURATION SECTION of a program, any USE FOR DEBUGGING statements and all 
associated debugging sections, and any debugging lines are compiled as comment lines. 
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PROCEDURE DIVISION 


Within the PROCEDURE DIVISION, procedures and data-names can be selectively monitored through the 
USE FOR DEBUGGING statement. 


USE FOR DEBUGGING 


The USE FOR DEBUGGING statement identifies the user items that are to be monitored by the associated 
debugging section. 
General Format: 


A ee ee RA EE LA CN AAA SN SP hhc SSS res A se Sy hss ss SERS 


section-name SECTION [ segment-number ] ; 


cd-name-1 

[ALL REFERENCES OF ] _ identifier-1 
USE FOR DEBUGGING ON file-name-] 

procedure-name-] 


ALL PROCEDURES 
cd-name-2 
[ALL REFERENCES OF | identifier-2 
file-name-2 


~~ 


procedure-name-2 
ALL PROCEDURES 


PE RRR TR ARE A ER RR RT 


Syntax Rules: 


|. Debugging section(s), if specified, must appear together immediately after the DECLARATIVES 
header. 

2. Except in the USE FOR DEBUGGING statement, there must be no reference to any nondeclarative 
procedure within the debugging section. 

3. Statements appearing outside of the set of debugging sections must not reference procedure-names 
defined within the set of debugging sections. 

4, Except for the USE FOR DEBUGGING statement, statements appearing within a given debugging 
section may reference procedure-names defined within a different USE procedure only with a PER: 
FORM statement. 

5. Procedure-names defined within debugging sections must not appear within USE FOR DEBUGGING 
statements. 

6. Any given identifier, cd-name, file-name, or procedure-name may appear in only one USE FOR DE- 
BUGGING statement and may appear only once in that statement. 

7. The ALL PROCEDURES phrase can appear only once in a program. 

8. When the ALL PROCEDURES phrase is specified, procedure-name-1, procedure-name-2, ... must 
not be specified in any USE FOR DEBUGGING statement. 

9. If the data description entry of the data item referenced by identifier-1, identifier-2, ..., contains an 
OCCURS clause or is subordinate to a data description entry that contains an OCCURS clause, iden- 
tifier-1, identifier-2, ..., must be specified without the subscripting or indexing normally required. 

. References to the special register DEBUG-ITEM are restricted to references from within a debugging 
section. 


o 
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General Rules: 


li 
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In the following general rules all references to cd-name-!, identifier-1, procedure-name-!, and file- 


name-1 apply equally to cd-name-2, identifier-2, procedure-name-2, and file-name-2, respectively. 


Automatic execution of a debugging section is not caused by a statement appearing in a debugging 
section. 


. When file-name-1 is specified in a USE FOR DEBUGGING statement, that debugging section is 


executed: 


a. After the execution of any OPEN or CLOSE statement that references file-name-1, and 

b. After the execution of any READ statement (after any other specified USE procedure) not result- 
ing in the execution of an associated AT END or INVALID KEY imperative statement, and 

c. After the execution of any DELETE or START statement that references file-name-!. 


. When procedure-name-! is specified in a USE FOR DEBUGGING statement, that debugging section 


is executed: 


a. Immediately before each execution of the named procedure; 
b. Immediately after the execution of an ALTER statement which references procedure-name-!. 


. The ALL PROCEDURES phrase causes the effects described in General Rule 4 to occur for every 


procedure-name in the program, except those appearing within a debugging section. 


. When the ALL REFERENCES OF identifier-! phrase is specified, that debugging section is executed 


for every statement that explicitly references identifier-1 at each of the following times: 


a. In the case of a WRITE or REWRITE statement, immediately before the execution of that 
WRITE or REWRITE statement and after the execution of any implicit move resulting from the 
presence of the FROM phrase. 

b. In the case of a GO TO statement with a DEPENDING ON phrase, immediately before control 
is transferred and prior to the execution of any debugging section associated with the procedure- 
name to which control is to be transferred. 

c. In the case of a PERFORM statement in which a VARYING, AFTER, or UNTIL phrase refer- 
ences identifier-1, immediately after each initialization, modification, or evaluation of the contents 
of the data item referenced by identifier-1. 

d. In the case of any other COBOL74 statement, immediately after execution of that statement. 


If identifier-1 is specified in a phrase that is not executed or evaluated, the associated debugging 
section is not executed. 
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7. When identifier-1 is specified without the ALI. REFERENCES OF phrase, that debugging section 


Il. 


is executed at each of the following times: 


a. In the case of a WRITE or REWRITE statement that explicitly references identifier-1, immediate- 
ly before the execution of that WRITE or REWRITE statement and after the execution of any 
implicit move resulting from the presence of the FROM phrase. 

b. In the case of a PERFORM statement in which a VARYING, AFTER, or UNTIL phrase refer- 
ences identifier-1, immediately after each initialization, modification, or evaluation of the contents 
of the data item referenced by identifier-1. 

c. Immediately after the execution of any other COBOL74 statement that explicitly references and 
causes the contents of the data item referenced by identifier-1 to be changed. 


If identifier-1 is specified in a phrase that is not executed or evaluated, the associated debugging 
section is not executed. 


. The associated debugging section is not executed for a specific operand more than once as a result 


of the execution of a single statement, regardless of the number of times that operand is explicitly 
specified. In the case of a PERFORM statement which causes iterative execution of a referenced 
procedure, the associated debugging section is executed once for each iteration. 


Within an imperative statement, each individual occurrence of an imperative verb identifies a 
separate statement for the purpose of debugging. 


. When cd-name-! is specified in a USE FOR DEBUGGING statement, that debugging section is 


executed: 


a. After the execution of any ENABLE, DISABLE, and SEND statement that references cd-name- 
1, 

b. After the execution of a RECEIVE statement referencing cd-name-1 that does not result in the 
execution of the NO DATA imperative-statement, and 

c. After the execution of an ACCEPT MESSAGE COUNT statement that references cd-name-1. 


. A reference to file-name-1, identifier-1, procedure-name-1, or cd-name-1 as a qualifier does not con- 


stitute reference to that item for the debugging described in the previous general rules. 
Associated with each execution of a debugging section is the special register DEBUG-ITEM, which 
provides information about the conditions that caused the execution of a debugging section. DEBUG- 
ITEM has the following implicit description: 


Ol DEBUG-ITEM, 


02 DEBUG-LINE PICTURE 1S X(6). 

02 FILLER PICTURE 1S X VALUE SPACE. 

02 DEBUG-NAME PICTURE IS X(30). 

02 FILLER PICTURE 15 X VALUE SPACE. 

02 DEBUG-SUB-1 PICTURE 13 $9999 SIGN IS LEADING SEPARATE 
CHARACTER 

02 FILLER PICTURE 15 X VALUE SPACE. 

02 DEBUG-SUB-2 PICTURE 13 $9999 SIGN IS LEADING SEPARATE 
CHARACTER 

02 FILLER PICTURE 135 X VALUE SPACE. 

02 DEBUG-SUB-3 PICTURE 13 $9999 SIGN IS LEADING SEPARATE 
CHARACTER 

02 FILLER PICTURE 15 X VALUE SPACE. 


02 DEBUG-CONTENTS PICTURE 15 X(n). 
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PROCEDURE DIVISION 


12. Prior to each execution of a debugging section, the contents of the data items referenced by DEBUG- 


13s 


15, 


7. 


18. 


19, 


1108883 


ITEM are space-filled. The contents of data items subordinate to DEBUG-ITEM are then updated, 
according to the following General Rules, immediately before control is passed to that debugging sec- 
tion. The contents of any data item not specified in the following general rules remain spaces. 


Updating is accomplished in accordance with the rules for the MOVE statement, the sole exception 
being the move to DEBUG-CONTENTS when the move is treated exactly as an alphanumeric to 
alphanumeric elementary move with no conversion of data from one form of internal representation 
to another. 


DEBUG-LINE is a data item that identifies the particular source statement that caused the debugging 
section to be executed. It contains the line number of the source image, a number which starts from 
1 and is incremented by | for every source image compiled. This line number is printed on the source 
listing during compilation. 


. DEBUG-NAME contains the first 30 characters of the name that caused the debugging section to 


be executed. 


All qualifiers of the name are separated in DEBUG-NAME by the word IN or OF. Subscripts/in- 
dices, if any, are not entered into DEBUG-NAME. 


If the reference to a data item that causes the debugging section to be executed is subscripted or 
indexed, the occurrence number of each level is entered in DEBUG-SUB-1, DEBUG-SUB-2. DE- 
BUG-SUB-3 respectively as necessary. 


If the data item is subscripted with more than three subscripts or indices, only the occurrence num- 
bers of the first three levels are entered into the DEBUG-ITEM. 


. DEBUG-CONTENTS is a data item that is large enough to contain the data required by the following 


General Rules 17 through 25. 
If the first execution of the first nondeclarative procedure in the program causes the debugging sec- 
tion to be executed, the following conditions exist: 


. DEBUG-LINE identifies the first statement of that procedure. 
. DEBUG-NAME contains the name of that procedure. 
c. DEBUG-CONTENTS contains "START PROGRAM’. 


oOo f 


If a reference to procedure-name-! in an ALTER statement causes the debugging section to be 
executed, the following conditions exist: 


a. DEBUG-LINE identifies the ALTER statement that references procedure-name-1. 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG-CONTENTS contains the applicable procedure-name associated with the TO phrase of 
the ALTER statement. 


If the transfer of control associated with the execution of a GO TO statement causes the debugging 
section to be executed, the following conditions exist: 


a. DEBUG-LINE identifies the GO TO statement whose execution transfers control to procedure- 


name-1. 
b. DEBUG-NAME contains procedure-name-|. 


10-7 
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10-8 


20. If reference to procedure-name-1! in the INPUT or OUTPUT phrase of a SORT or MERGE statement 


wl 


22. 


ps 3 


24. 


25% 


causes the debugging section to be executed, the following conditions exist: 


a. DEBUG-LINE identifies the SORT or MERGE statement that references procedure-name-|!. 
b. DEBUG-NAME contains procedure-name-|!. 
c. DEBUG-CONTENTS contains: 


1) "SORT INPUT? if the reference to procedure-name-! is in the INPUT phrase of a SORT state- 
ment. 


2) "SORT OUTPUT? if the reference to procedure-name-! is in the OUTPUT phrase of a SORT 
statement. 


3) "MERGE OUTPUT” if the reference to procedure-name-1 is in the OUTPUT phrase of a 
MERGE statement. 


If the transfer of control from the control mechanism associated with a PERFORM statement caused 


the debugging section associated with procedure-name-1| to be executed, the following conditions ex- 
ist: 


a. DEBUG-LINE identifies the PERFORM statement that references procedure-name-|!. 
b. DEBUG-NAME contains procedure-name-1. 
c. DEBUG-CONTENTS contains "PERFORM LOOP’. 


If procedure-name-! is a USE procedure that is to be executed, the following conditions exist: 


a. DEBUG-LINE identifies the statement that causes execution of the USE procedure. 
b. DEBUG-NAME contains procedure-name-1. 
c. DEBUG-CONTENTS contains "USE PROCEDURE’. 


ff an implicit transfer of control from the previous sequential paragraph to procedure-name-1 causes 
the debugging section to be executed, the following conditions exist: 


a. DEBUG-LINE identifies the previous statement. 
b. DEBUG-NAME contains procedure-name- 1. 
c. DEBUG-CONTENTS contains "FALL THROUGH’. 


If references to file-name-1, cd-name-1 cause the debugging section to be executed, then: 


a. DEBUG-LINE identifies the source statement that references file-name-1, cd-name-1!. 
b. DEBUG-NAME contains the name of file-name-1, cd-name-1. 

c. For READ, DEBUG-CONTENTS contairis the entire record read. 

d. For all other references to file-name-!, DEBUG-CONTENTS contains spaces. 


e. For any reference to cd-name-!1, DEBUG-CONTENTS contains the contents of the area associ- 
ated with the cd-name. 


If a reference to identifier-1 causes the debugging section to be executed, then: 


a. DEBUG-LINE identifies the source statement that references identifier-1. 

b. DEBUG-NAME contains the name of identifier-1, and 

c. DEBUG-CONTENTS contains the contents of the data item referenced by identifier-1 at the tirne 
that control passes to the debugging section (refer to General Rules 6 and 7). 


Example: 


000100 
000200 
000300 
000400 
000500 
000600 
000700 
000800 
000810 
000900 
001000 
001100 
001200 
001300 
001400 
001500 
001600 
001700 
001800 
001900 
002000 
002100 
002200 
002300 
002400 
002500 
002600 
002700 
002800 
002900 
003000 
003100 
003200 
003300 
003400 
0035300 
003600 
003700 
003800 
003900 
004000 
004100 
004200 
004300 
004400 
004300 
004600 
004700 
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IDENTIFICATION DIVISION. 
PROGRAM-ID. DEBUGTEST. 


THIS PROGRAM IS AN EXAMPLE OF THE COBOL74 DEBUGGING AIDS. 
NOTE THAT THE “WITH DEBUGGING MODE" STATEMENT IN THE SOURCE 
COMPUTER PARAGRAPH INSTRUCTS THE COMPILER THAT DEBUGGING 
STATEMENTS ARE TO BE COMPILED INTO THE OBJECT CODE. SETTING 
SW9=1 AT EXECUTION TIME ENABLES THE EFFECTS DESCRIBED IN 
THE "USE FOR DEBUGGING" STATEMENT. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. Bi983 WITH DEBUGGING MODE. 
OBJECT-COMPUTER. 81985. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT PRINTFILE ASSIGN TO PRINTER. 
SELECT DBGFILE ASSIGN TO PRINTER. 
DATA DIVISION. 
FILE SECTION. 
FD PRINTFILE. 


O1 PRINT-REC PIC X(132). 
FD DBGFILE. 
01 DEBUG~REC PIC X(132). 
WORKING-STORAGE SECTION. 
77° =~ALFA PIC 9 VALUE 4. 
77 ~=BRAVEO PIC 99 VALUE 16. 
77 CHARLIE PIC 99. 
77 ~FLAG PIC 9. 
BB NEED-IT VALUE ZERO. 
77 ~ANN PIC 99 VALUE 20. 
01 BARBARA. 
03 CHERYL. 
03 DIANNE PIC 99 VALUE 14. 
77 ~ELVA PIC 9(18). 
77 FRAN PIC X(32) VALUE "TEST PROGRAM FOR COBOL 74 MANUAL”. 
77 ~=GOLDIE PIC 9 VALUE 1. 
O1 HEIDI. 
03 ILENE PIC 9(8) OCCURS 3 TIMES. 
03 JANIS PIC 9. 


PROCEDURE DIVISION. 
DECLARATIVES. 
D-BUG SECTION. 
USE DEBUGGING ON 
ALL REFERENCES OF CHARLIE 
ALL. REFERENCES OF BRAVEO 
ALL PROCEDURES. 
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004800 
004900 
005000 
005100 
005200 
005300 
005400 
005500 
005600 
003700 
005800 
003900 
0046000 
006100 
006200 
006300 
006400 
0046500 
004400 
006700 
004800 
0046900 
0607000 
007100 
007200 
007300 
007400 
007300 
007600 
007700 
007800 
007900 
008000 
008100 
008200 
008300 
008400 
008500 
008600 
008700 
008800 


% 
% 
K 
XK 
K 
X 
* 
* 
x 
* 
x 
% 
% 
% 
K 
¥ 
x 
x 
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RECORD DESCRIPTION FOR DEBUG-ITEM. 


Qi DEBUG-ITEM. 


02 DEBUG-LINE PIC X(6). 

02 FILLER PIC X VALUE SPACE. 

02 DEBUG-NAME PIC X(30). 

O2 FILLER PIC X VALUE SPACE. 

02 DEBUG-SUB-~1 PIC $9(4) SIGN IS LEADING 
SEPARATE CHARACTER. 

O02 FILLER PIC X VALUE SPACE. 

02 DEBUG-SUB-2 PIC $9(4) SIGN IS LEADING 
SEPARATE CHARACTER. 

O02 FILLER PIC X VALUE SPACE. 

02 DEBUG-SUB-3 PIC S9(4) SIGN IS LEADING 
SEPARATE CHARACTER. 

O02 FILLER PIC X VALUE SPACE. 

02 DEBUG-CONTENTS PIC X(n). 

DEBUG-OUT. 
IF NEED-IT 


OPEN OUTPUT DBGFILE 
MOVE 1 TO FLAG. 
WRITE DEBUG-REC FROM DEBUG-ITEM. 
END DECLARATIVES. 
WORK SECTION. 
START-IT. 
SUBTRACT ALFA FROM BRAVEO GIVING CHARLIE. 
DIVIDE BRAVEO BY CHARLIE GIVING ALFA. 
SUBTRACT ALFA FROM BRAVEO GIVING CHARLIE. 
FOLLOW-UP. 
SUBTRACT 4 FROM ANN. 
DIVIDE ANN INTO DIANNE GIVING JANIS. 
ACCEPT ILENE (GOLDIE) FROM TIME. 
OPEN OUTPUT PRINTFILE. 
WRITE PRINT-REC FROM FRAN. 
WRITE PRINT-REC FROM ILENE (GOLDIE). 
WRITE PRINT-REC FROM JANIS. 
CLOSE-SHOP . 
CLOSE PRINTFILE RELEASE. 
CLOSE DBGFILE RELEASE. 
STOP RUN. 
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The output from the file DBGFILE follows. 


000074 
000074 
000074 
000074 
000075 
000075 
000076 
000076 
000076 
000084 


WORK 
START-1T 
BRAVEO 
CHARLIE 
BRAVEO 
CHARLIE 
BRAVEO 
CHARLIE 
FOLLOW-UP 
CLOSE-SHOP 


DEBUGGING AND DIAGNOSTIC FACILITIES 


The following compile-time facilities are available: 


DEBUG 
DIAGNOSTICS 


START PROGRAM 
FALL THROUGH 
16 


FALL THROUGH 
FALL THROUGH 


|. Syntax error messages are printed before the line in error prior to the PROCEDURE DIVISION and 


2, 


after the line in error thereafter. A pointer indicates the location of the possible error. 
Warning messages are optionally printed before the line in error prior to the PROCEDURE DIVISION 


and after the line in error thereafter. A pointer indicates the location of the possible error for some 
of these messages. 


3. Various informational messages are printed. 
4. No code is generated if syntax errors are present. 


All error messages are specific and are sufficient to determine the cause of the error. 


1108883-001 
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COMPILER LIMITS 


jler limits are: 


en all. iis wartieg. one for each FD. SD, and CD. anid one ‘for each ° “section” in 
ON ter example. WORKING-STORAGE SECTION). 


h in digits. All 01 levels 


. referenced field witk 


m for a single OCCURS value and for total acct 


-M range ~ PERFORM A THRU C and PERFORM B THRU C count 


stems COBOL74 Reference Manual 
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ympilation normally included in a listing. Needed 
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APPENDIX A 


RESERVED WORDS 


All reserved words known to the B 1000 COBOL74 compiler are listed in this Appendix, which includes notations 
(X) of the DIVISION(s) wherein the words are used. Also, the notation (X) indicates that the word is used for 
DATA MANAGEMENT (DMSII). 
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REASON FOR RESERVATIONS 
RESERVED 
WORD DIVISION 


hee DATA PROC 
= = xX | 


ACCEPT 


ADVANCING _ 
AFTER 


ALL 
ALPHABETIC = 
ALSO - 
ALTER | 
ALTERNATE = 
AND = 
ARE 7 
AREA = 
AREAS = 
ASCENDING = 


1K KI 


i x1 KK | 


AVAILABLE 


BEFORE 


BLANK 
BLOCK 
BOTTOM 


A-2 
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REASON FOR RESERVATIONS 


RESERVED 
WORD 


DIVISION 


ENVI [DATA | PROC | DMsII 


CHARACTER 
CHARACTERS 
CLOCK-UNITS 
CLOSE 
COBOL 

CODE 
CODE-SET 
COLLATING 
COLUMN 
COMMA 


COMMUNICATION 
COMP 
COMPUTATIONAL 
COMPUTE 
CONFIGURATION 
CONTAINS 
CONTROL 
CONTROLS 

COPY 

CORR 
CORRESPONDING 
COUN 


DATE-COMPILED 
DATE-WRITTEN 
DAY 


DE 
DEBUG-CONTENTS 
DEBUG-ITEM 
DEBUG-LINE 
DEBUG-NAME 
DEBUG-SUB-|! 
DEBUG-SUB-2 
DEBUG-SUB-3 
DEBUGGING 
DECIMAL-POINT 


| 
| 
x KKK KK KK! 


I 
\ 
| 
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REASON FOR RESERVATIONS 
RESERVED 
WORD DIVISION 


| IDEN | ENVI PROC DMSII 


oe 


DECLARATIVES 
DELETE 
DELIMITED 
DELIMITER 
DEPENDING 
DESCENDING 
DESTINATION 
DETAIL 
DISABLE 
DISPLAY 
DIVIDE 
DIVISION 


| KKK KM 


xxx x | 


x1 KI 
xx MM 


DOWN 
DUPLICATES 
DYNAMIC 
EGI 

ELSE 

EMI 
ENABLE 
END 


ENVIRONMENT 
EOP 

EQUAL 

ERROR 

ESI 

EVERY 
EXCEPTION 
EXIT 

EXTEND 


xxmK 1 KKK 


FILE x 

FILE-CONTROL _ X _ _ 
FILLER - - “i = 
FINAL 


FIRST 
FOOTING } = ~ - - 


$$ TENE: I ME! 


A-3 


A-4 
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REASON FOR RESERVATIONS 


RESERVED 


WORD DIVISION 


IDEN | ENVI | DATA | PROC 
x Xx 


GREATER 
GROUP 


HEADING 
HIGH-VALUE 
HIGH-VALUES 


I-O 
I-O-CONTROL 
IDENTIFICATION 
IF 

IN 

INDEX 

INDEXED 
INDICATE 
INITIAL 


INITIATE 
INPUT 
INPUT-OUTPUT 


INSPECT 
INSTALLATION 
INTO 

INVALID 


JUST 
JUSTIFIED 


LABEL - - Xx 
LAST = - xX - aa 
LEADING - ~ X 
LEFT - Xx 
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~ 


KK 1 KK I KI KKK 
x KK 1 KK KK i! 


1K x | 


MODULES 
MOVE 
MULTIPLE 
MULTIPLY 


NATIVE 
NEGATIVE 
NEXT 

NO 


A | KI 


REASON FOR RESERVATIONS 
NUMBER 


RESERVED 
WORD DIVISION 
| IDEN ENVI DATA PROC DMSII 
NUMERIC 


LENGTH — 
LESS - 
LIMIT _ 
LIMITS = 
LINAGE ~ 
LINAGE-COUNTER - 
LINE _ 
LINE-COUNTER _ 
LINES - 
LINKAGE - 
LOCK = 
LOW-VALUE = 
LOW-VALUES - 
OBJECT- = x = = = 
COMPUTER 
OCCURS = x % 7 
ODT = 
ODT — INPUT — PRESEN "2 
OF = 
OFF = 
OFFER = 
OFFSET = 
OMITTED = 
ON = 
OPEN = 


MEMORY 
OPTIONAL 
OR = 


MERGE 

MESSAGE 

ORGANIZATION = 
OUTPUT = 


MODE 
OVERFLOW > = 


1 KK 1 K |! 
x | 
x K! 

| 


x XK | 
| 


1K 1 Kb KI 
1 | 

xe 1K 1 KK! 
l 
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REASON FOR RESERVATIONS 
RESERVED eee 
WORD DIVISION 
IDEN ENVI DMSII 
PAGE : = x 
PAGE-COUNTER = = 
PERFORM = = 
PE = XK 
PH ae x 
PIC — Xx 
PICTURE e : 
PLUS XK = 
POINTER = = x 
POSITION x _ : 
POSITIVE LS = x 
PRINTING a Ss x 
PRIOR © o 2 = 
PROCEDURE 2 _ x 
PROCEDURES = = xX 
PROCEED = = xX 
PROGRAM x 7 2 
x 
x 
a ee x 
RANDOM x , _ 
RD : e 7 7 
READ : : . J 
READ — OK : ~ X = 
RECEIVE oe 7 x - 
RECORD x x a 
RECORDS X x : . 
REDEFINES = % 7 2 
REEL 4 = x 
REFERENCES a 2 x se 
RELATIVE Xx _ : _ 
RELEASE 7 - . : 
REMAINDER = od x a 
REMOVAL - : x 2 
REMOVE a a x x 
RENAMES i. x . - 
REPLACING ze a x = 
REPORT : x ‘ : 
REPORTING a - x > 
REPORTS : x : 7 
RERUN x . 7 7 
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REASON FOR RESERVATIONS 
RESERVED 


WORD DIVISION 
ENVI DATA 


RESERVE 
RESET 
RETURN 
REVERSED 
REWIND 
REWRITE 


seagtast 


SAME | ee ae = = = 


SD # = x = ae 
SEARCH % = z x ~ 
SECTION = x x x = 
SECURIT 


SEGMENT = = = xX es 
SEGMENT-LIMIT - xX i = = 
SELECT - X = 

SEND = = = x = 
SENTENCE ~ = = XxX 
SEPARATE _ 
SEQUENCE om 
SEQUENTIAL - 
SET = 
SIGN = 
SIZE m 
SORT = 
SORT-MERGE je = 
SOURCE 2 xX 2 a 
SOURCE-COMPUTER _ a _ 
SPACE = zs Xx XxX = 
SPACES »,4 x 
L-NAMES 
STANDARD 
STANDARD.-1 
| START 

| STATUS 
STOP 


xx | 
we 
| 


x mM KM 


x I 


SPECI 


si 


A 


“STRING 
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REASON FOR RESERVATIONS 
RESERVED ae 

WORD ____DIVISION 
IDEN ENVI DATA 


SUB-QUEUE-1 - - 
SUB-QUEUE-2 - - 
SUB-QUEUE-3 - - 
| SUBTRACT - - 
SUM - - 
| SUPPRESS - - 
SYMBOLIC = a 
SYNC - - 
SYNCHRONIZED 


TALLYING 
TAPE _ X 
TERMINAL _ - 
TERMINATE - - 
TEXT - - 
THAN = - 
THROUGH - Xx 
THRU - 4 
TIME 


TRAILI 


UNSTRING 
UNTIL - 
UP 
UPON 
USAGE - 
USE - 
USING - 


| 
| 

x x | 
| 
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REASON FOR RESERVATIONS 


RESERVED 
WORD DIVISION 


= 4 — 


VALUE 
VALUES 
VARYING 


WITH 
WORDS 
WORKING- 
STORAGE 
WRITE 
WRITE —- OK 
ZERO 
ZEROES 
ZEROS 
ZIPSB 


XK KKK KKK 
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APPENDIX B 
COBOL74 SYNTAX SUMMARY 


This appendix contains the composite language skeleton of COBOL74. Shaded items indicate extensions to 
the American National Standard, 1974 (ANSI-74). 


GENERAL FORMAT FOR IDENTIFICATION DIVISION 


IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 

[AUTHOR. [comment-entry] ...] 
[INSTALLATION. [comment-entry neal 
[DATE-WRITTEN. [comment-entry] .<.] 
[DATE-COMPILED. [comment-entry] ... ] 
{[SECURITY. [comment-entry] ... ] 


GENERAL FORMAT FOR ENVIRONMENT DIVISION 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. source-computer-entry 
OBJECT-COMPUTER.  object-computer-entry 
[SPECIAL-NAMES. special-names-entry } 
[INPUT-OUTPUT SECTION. 

FILE-CONTROL. { file-control-entry } ... 
[IO-CONTROL. input-output-control-entry ]  ] 


Format 1: 
E SOQURCE-COMPUTER. computer-name. | 
Format 2: 


a SOURCE-COMPUTER. computer-name [WITH DEBUGGING MODE] . | 


WORDS 
OBJECT-COMPUTER. computer-name | ,MEMORY SIZE integer )ciakacrers 
MODULES 


[, PROGRAM COLLATING SEQUENCE IS alphabet-name ] 


[ , SEGMENT-LIMIT IS segment-number ]_.. 
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SYNTAX 


SPECIAL-NAMES. 


taps nam thevi-treceSpfsegen hs POA ANNE EY A LL SS LER Sen 


SPECIAL-NAMES . 


IS mnemonic-name 


{ , ON STATUS IS condition-name-1 
[, OFF STATUS IS condition-name-2 ] ] 
IS mnemonic-name 
[, OFF STATUS IS condition-name-2 
[,ON STATUS IS condition-name-1] ] 


ON STATUS IS condition-name-1 
[, OFF STATUS IS condition-name-2 ] 


OFF STATUS IS condition-name-2 
{, ON STATUS IS condition-name-|! ] 


, alphabet-name IS 


STANDARD-1 


NATIVE 
ASCII 
EBCDIC 
{pas \ literal-2 
literal-1 THRU 
ALSO literal-3 [, ALSO literal-4] ... 
{ THROUGH | 
literal-5 THRU {  literal-6 
ALSO literal-7 [, ALSO literal-8]... 


[ , CURRENCY SIGN IS literal-9 ] 
{ , DECIMAL-POINT IS COMMA }. 


A EC |S AP TTC PEE YO PR PP SESE RM RE pe PS AE PE SC SE SA A A aA Et PE NAAR 
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INPUT-OUTPUT SECTION. 
FILE-CONTROL. SYNTAX 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 


SELECT [OPTIONAL] _ file-name 


UNCI 


ASSIG 


. RESERVE integer-3 


— 
Pe 


\ SEQUENTIAL | : ACTUAL KEY IS data-name-2? lt 
: ACCESS MODE IS_ 


ORGANIZATION IS SEQUENTIAL | 
RANDOM: ACTUAL KEY IS data-name-2 


pe 


SEQUENTIAL |. RELA 


IVE KEY IS data-name I] 
RANDOM 


T 
A ~ RELATIVE KEY IS data-name-3 


DYNAMICS 


ACCESS MODE ”| j 


- ORGANIZATION IS INDEXED 


ACCESS MODE IS RANDOM 


SEQUENTIAL | 


DYNAMIC 


» RECORD KEY IS data-name-4 


ORGANIZATION IS RELATIVE | 


| [; ALTERNATE RECORD KEY IS data-name-5 [WITH DUPLICATES] | ... 


- FILE STATUS IS data-name-! ]. 


—_ 
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Appendix B 
SYNTAX 
[-O-CONTROL. 
LO-CONTROL. 
RECORD 
; SAME | SORT AREA FOR file-name-3 {, file-name-4 } 
SORT-MERGE 


a ee hE RE SNS EN EE A ec tn pau Se SER Se 


GENERAL FORMAT FOR DATA DIVISION 


DATA DIVISION. 


ee ne A 


DATA DIVISION. 


FILE SECTION. 


ee [record-description-entry] ... 
sort-merge-file-description-entry (record-description-entry) ... 


(——- < 


WORKING-STORAGE SECTION. 


| 77-level-description-entry 
record-description-entry 


LINKAGE SECTION. 


ae escription-entry 
record-description-entry 


COMMUNICATION SECTION. 


{ communication-description-entry [record-description-entry] ... ] 


<F SE GE 
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SYNTAX 


FD file-name 


[ED file-name | 
RECORDS 
; BLOCK CONTAINS [integer-1 TO] integer-2 ¢ 
CHARACTERS 


[ ; RECORD CONTAINS [ integer-3 TO | integer-4 CHARACTERS | 


RECORD IS STANDARD 
; LABEL 


RECORDS ARE OMITTED 


data-name-] 
; VALUE OF attribute-name-1 IS 


literal-1 
data-name-2 
, attribute-name-2 IS 
literal-2 
RECORD IS 
; DATA data-name-3 [, data-name-4] ... 
RECORDS ARE . 


data-name-5 data-name-6 
; LINAGE IS LINES |, WITH FOOTING AT 


integer-5 integer-6 
: data-name-7 data-name-8 ) 
, LINES AT TOP , LINES AT BOTTOM s 
integer-7 | integer-8 j 


[; CODE-SET IS alphabet-name ]. 


{ record-description-entry sec ] er 


1108883 B-5 


SYNTAX 


SD file-name 


B 1000 Systems 


SD file-name 


( 


v 


we 


RECORD CONTAINS 


RECORD IS 


RECORDS ARE 


a ee ce REN Hee SA 


COBOL.74 Reference Manual 
Appendix B 


[integer-1 TO] integer-2 CHARACTERS ] 


data-name-1 [, data-name-2] ... 
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GENERAL FORMAT FOR DATA DESCRIPTION ENTRY 


Format 1: 
data-name-1 
level-number 
FILLER 
[; REDEFINES data-name-2 ] 
PICTURE 
: IS_ character-string 
PIC 
COMPUTATIONAL 
; [USAGE IS] ) COMP - 
DISPLAY 
INDEX 
; OCCURS [integer-l TO] integer-2 TIMES 
[ DEPENDING ON data-name-3 ] 
ASCENDING 
KEY IS data-name-4 _—[ , data-name-5] ...].. 
DESCENDING 
[ INDEXED BY index-name-1 [, index-name-2 ] 
LEADING 
; [SIGN IS] | [ SEPARATE CHARACTER ] 
TRAILING 
/ 
—— ee 7 
' (sync RIGHT | 
JUSTIFIED 
RIGHT 
JUST 
; BLANK WHEN ZERO ] 
; VALUE IS literal ‘ 
1108883 


SYNTAX 


B-7 
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SYNTAX 
Format 2: 
THROUGH 
66 data-name-1; RENAMES data-name-. leew snssanes 
scant —_ i 


VALUE IS THROUGH 
literal-1 literal-2 
VALUES ARE THRU 


88 condition-name: 


THROUGII : r 
. : Pole Beet ea: 
, literal-3 THRU itera 


et ee eng tt A ES 


WORKING-STORAGE SECTION. 


eS A LT SS I tat SM re sinh SPS Shs es SaaS 


WORKING-STORAGE SECTION. 
ee; data-name-! 
88 condition-name-] 


77 data-name-n 
01 data-name-2 
02 data-name-3 


66 data-name-m RENAMES data-name-3 
01 data-name-4 
02 data-name-5 
03 data-name-n 
88  condition-name-2 


rrr aera A NR ES SOAS 
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SYNTAX 


LINKAGE SECTION. 


LINKAGE SECTION. 
TT data-name-! 
88 condition-name-] 


77 datacnanien 
01 data-name-2 
02 data-name-3 


66 data-name-m RENAMES data-name-3 
01 data-name-4 
02 data-name-5 
03 data-name-n 
88 condition-name-2 


COMMUNICATION SECTION. 
Format |: 


CD cd-name; 


[ [ ; SYMBOLIC QUEUE IS data-name-! 


we 


SYMBOLIC SUB-QUEUE-] IS data-name-2 ] 


SYMBOLIC SUB-QUEUE-2 IS data-name-3 ] 


we 


we 


SYMBOLIC SUB-QUEUE-3 IS data-name-4 ] 


FOR [INITIAL ] INPUT MESSAGE DATE IS data-name-5 ] 


we 


; MESSAGE TIME IS data-name-6 ] 


SYMBOLIC SOURCE IS data-name-7 | 


we 


TEXT LENGTH IS data-name-8 ] 


we 


[coe De eee Monee coe ET cee EE coon OE ee OE ee | 


END KEY IS data-name-9 ] 


we 


[ ; STATUS KEY IS data-name-10] 


[ ; MESSAGE COUNT IS data-name-11) | 


[ data-name-1, data-name-2,... , data-name-1 | ] 


1108883 B-9 


B 1000 Systems COBOL74 Reference Manual 
Appendix B 


SYNTAX 


Format 2: 


CD cd-name; FOR OUTPUT 
[ ; DESTINATION COUNT IS data-name-1 ] 
[ ; TEXT LENGTH IS data-name-2 ] 
[ ; STATUS KEY IS data-name-3 } 
E DESTINATION TABLE OCCURS integer-2 TIMES 


[ ; INDEXED BY index-name-1 [, index-name-2] ... ] | 


{ ; ERROR KEY IS data-name-4 | 


[ ; SYMBOLIC DESTINATION IS data-name-5 ] . 
GENERAL FORMAT FOR PROCEDURE DIVISION 
| PROCEDURE DIVISION[USING data-name-1 [, data-name-2 ] ] | 
Format |: 

[ DECLARATIVES. | 


{ section-name SECTION [segment-number]. declarative-sentence 
[ paragraph-name. {sentence] ... j es } eo 

END DECLARATIVES. ] 
{ section-name SECTION_ [segment-number]. 


[paragraph-name. [sentence] ...] ... send 


A A A AE RR SS 


Format 2: 
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SYNTAX 


DECLARATIVES. 
section-name SECTION [ segment-number ] 


[ALL REFERENCES OF] _ identifier-1 


cd-name-1 
USE FOR DEBUGGING ON | procedure | 


procedure-name-l 
ALL PROCEDURES 


cd-name-2 
[ALL REFERENCES OF ] _ identifier-2 
, file-name-2 
procedure-name-2 
ALL PROCEDURES 


GENERAL FORMAT FOR VERBS 


Format I: 
| ACCEPT identifier [FROM { mnemonic-name } ] 


Format 2: 


ACCEPT identifier FROM 


| ACCEPT — cd-name MESSAGE COUNT | 


Format |: 


identifier-1 , identifier-2 
ADD ... TO identifier-m [ ROUNDED ] 
literal-1 , literal-2 


[. identifiern [ROUNDED ] ] 


[ ; ON SIZE ERROR imperative-statement ] 
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SYNTAX 


Format 2: 


a ete eR I A Te SN 


( identifier-1 identifier -2 , identifier-3 
ADD , 


) literal-1 literal-2 , literal-3 
GIVING identifier-m [ROUNDED] [ , identifier-n [ ROUNDED]]... 


[. ON SIZE ERROR imperative-statement ] 


re Sh Ee a SY 


Format 3: 


| CORRESPONDING 


ADD identifier-l TO identifier-2 [ROUNDED | 


lL cCORR | 


| [ -ON SIZ ERROR imperative-statement ] 


AL EER procedure-name-1 TO {PROCEED LO| procedure-name-2 


[ .procedure-name-3 FO |PROCITED TO| procedure-name-t | AD 


Format I: 


a cor PN AR A a a Senn re en A A 


| identifier-I 
[ USING  data-name-1 [, data-name-2] ... ] 
) literal-] 


[ : ON OVERFLOW imperative-statement ] 


en tenant th EL SEENON 2UPSENNN R-Snc,SNreer tRTY UPUr i sf Se seus UR Seema 


Format 2: 


a A RE TT SE A RE SOR TESS ESTA Ot tr RE 
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SYNTAX 


rt sts Phe sts nS Ss ht WSS 


identifier-| , identifier-2 
CANCEL 


literal-1 , literal-2 


1108883-001 B-12A 
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SYNTAX 


} REEL | RS NO RISSIND] 
UNIT f LFOR REMOVAL 
NO REWIND : 
CLOSE file-name-l WITH 
{ REEL| a NO REWIND 
UNIT § [FOR REMOVAL | 
(NO REWIND | 
, file-name-2 WITH LOCK ae 


COPY ees 
( ==pseudo-text-]1== =pseudo-text-2== ] 
identifier-1 identifier-2 
REPLACING ) > ) jiteral-1 BY ) literal-2 a 
word-! word-2 | 


DELETE file-name RECORD [; INVALID KEY imperative-statement ] | 
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SYNTAX 
INPUT [TERMINAL ] identifier-] 
DISABLE cd-name WITH KEY 
OUTPUT literal-1 
| identifier-| . identifier-2 
DISPLAY 
| literal-1 | .literal-2 
[ LPON — mnemonic-name | 
Format 1: 
{ identifier-] 
DIVIDE INTO identifier-2 [ROUNDED ] 
( literal-1 
[ ; identifier-3 [ROUNDED }]}... 
& ON SIZE ERROR imperative-statement | 
Format 2: 
| identifier-1 \ BY { identifier-2 
DIVIDE .; ‘ 
{ literal-1 l into | Uiiteral-2 


GIVING identifier-3 [ROUNDED ] 
[ , identifier-¢ [ROUNDED] ]... 


[ ; ON SIZE ERROR imperative-statement ] 


te nn a A NN Nt Hh NC tree 


Format 3: 


ENABLE cd-name WITH KEY 
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SYNTAX 


identifier-1 BY identifier-2 
DIVIDE 

literal-] | INTO literal-2 
GIVING identifier-3 [ROUNDED ] 


REMAINDER identifier-4 


[ ; ON SIZE ERROR imperative-statement ] 


INPUT [TERMINAL ] 


literal-1 


identifier-1 


OUTPUT 


EXIT. | 


EXIT PROGRAM. | 
| GO TO [procedure-name-1 ] | 


Format 2: 


i tn 


GO TO procedure-name-|! [ . procedure-name-2 ] ..., procedure-name-n 


DEPENDING ON identifier 


statement-1 (ELSE : statement-2 
IT’ condition ; 
_ NEXT SENTENCE ie ELSE NEXT SENTENCE 


1108883 
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SYNTAX 


Format |: 


en a tne ance | 


INSPECT identifier-] TALLYING 


ALL \ identifier-3 |) nes ae. 
_identifier-2 FOR iF ise fierce te Uramsan INITIAL. j denies) as oer 
CHARACTERS | Sas one 


Format 2: 


INSPECT identifier-] REPLACING 


; ener ae, {BEFORE | Kins Paulie 
Sys USE Bite \ literal-4 AFTER pe \ literal-§ 


ALL ue be cae ecu Ps 
L “EADING a BY ee l} BEFORE INITIAL oe _ | suite, 
>ral-3 = al~ TE e 

FIRST | iteral-. itera ALTER | ( 


Format 3: 


INSPECT identifier-] TALLYING 


ALL f identificr-3 
} identifier-2 FOR | LEADING  Yiteral-1 | Se aa INITIAL ae ae a eo 
[ | CHARACTERS ' oe | | 


REPLACING 


identifier-6 { BEFORE identitier-7 
Y SS 
SHAR ACERS literal-4 t AFTER EEA literal-S | 


ND Se 


ALL aft eae GEG YEE ama 4 
| LEADING | er BY ae | RETR INITIAL. ' oa a a 
FIRST | iteral-. iteral- iteral-: J | 
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MERGE file-name-] 


ASCENDING ] 
ON KEY data-name-| [ ; data-name-2 ] Pict 
DESCENDING | 


ASCENDING 
ON KEY data-name-3 [, data-name-4 | Say 


DESCENDING 


[ COLLATING SEQUENCE IS alphabet-name | 


PURGE 
USING file-name-2 a , file-name-3 reser , file-ename-4 
RELEASE RELEASE RELEASE 


j THROUGH 


OUTPUT PROCEDURE IS procedure-name-| roctirename2 


(tury | 


GIVING _ file-name-5 


Format |: 
MOVE feats ia TO identifier-2 Fz identifier-3 ]... 
Format 2: 
MOVE { oe identifier-1 TO identitier-2 - 
Format I: a 
eee laa BY identificr-2 [ROUNDED | 
[, identifier-3 [ROUNDED] ] ...  [;ON SIZE ERROR imperative-statement ] 
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identifier-| 
literal-1 


Appendix B 


IZ 


ee ae 
MULTIPLY \ B Meee GIVING identitier-3 | ROUNDED | 
[. identifier-4 [ROUNDED]] ... [.ON SIZE ERROR imperative-statement] 


ne nent ape ti SSO neve in SSN Sa Nn rs Neg ERR 


OPEN 


INPUT 


OUTPUT 
[-O 


EXTEND 


file-name~| | REVERSED 
WITH NO REWIND 
file-name-2 RSED ait st A 
WITH NO REWIND 
filename-3 [WITH NO REWIND] 
filename4 [WITH NO REWIND] ] ... ae 
file-name-5_ f Lt ] 
file-name-6 ] 
file-name-7 ] 
file-name-8 ] 


ee a AA UO EE A AE A A ep A NO 


mae erasers espe AeA SEERA A EN A EE NR rnp SINCE TR eT MeN 


) THROUGH 
PERFORM procedure-name- | ‘ -  procedure-name-2 
lrHRU | 


ete ee ne 


| THEOUGH ( identifier-] 
procedure-name-2 TIMES 
ltHRu J baevert <} 


ep A RN AEE et tp A A ts PhS SP 


Format 3: 


B-18 


: PERFORM procedure-name-1 


( THROUGH ) 
procedure-naine-2 UNTIL condition-1 
ltHRu J 


Format 4: 


Format I: 


. 


Format 2: 


= 


Format 3: 


- 


1108883-001 


( THROUGH 
PERFORM procedure-name-1 ) procedure-name-2 
THRU 
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SYNTAX 


\ identifier-2 -identifier-3 
VARYING FROM index-name-2 
\ index-name-1 literal-1 
{ identifier-4 


BY ; UNTIL condition-] 
| literal-2 


\ identifier-5 identifier-6 
AFTER FROM < index-name-4 
( index-name-3 literal-3 
identifier-7 
BY 


UNTIL condition-2 
literal-4 


READ file-name [ NEXT ] RECORD _ [ INTO identifier | 


[ AT END imperative-statement ] 


READ filename RECORD [ INTO identifier ] 
[ ; KEY IS data-name | 


[ > INVALID KEY imperative-statement ] 
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SYNTAX 


Format 4: 


RECEIVE cd-name MESSAGE INTO _ identifier-1 


i ; NO DATA imperative-statement | 
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SYNTAX 


RELEASE record-name [FROM identifier ] | 


RETURN file-name RECORD [INTO identifier ] 


: AT END imperative-statement 


REWRITE record-name [ FROM identifier ] 


(; INVALID KEY imperative-statement ] 


ate 


Format 1: 


, ae 
SEARCH identifier-1_ | VARYING eeu = | 
————— se index-name-| 
[; AT END imperative-statement-I | 
; eae tee 
| - WHEN condition-1 | NEXT ete ees 


, BRT a earn co NOESENTENGE. 
[ WHEN condition-2 {NEXT SENTENCE 


Format 2: 


SEARCH ALL identifier-1 [. AT END imperative-statement-1 | 
: identifier-3 
an | data-name-| ie OEE 1 literal-] 
arithmetic-expression-1 
; condition-name-1! 
ia, ae identifier-4 
{ate -name-2 te EQUAL a itera 
IS = ; ; .; 
arithmetic-expression-2 
oe -name-2 


NEXT SENTENCE 


imperative-statement-2 


1108883-001 B-20A_ ff 
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| WITH identifier-2 
SEND cd-name [ FROM identifier-I ] 
( WITH EMI | 
| jes) LINE 
\ integer LINES 
BEFORE | : : 
ae ADVANCING 


SYNTAX 


mnemonic-name 
PAGE 


Format |: 
identifier-] , identifier-2  ~ identifier-3 
SET eek TO index-name-3 
index-name-1 , index-name-2 . integer-] | 
Format 2: 


| UP BY { identifier-4 
SET index-name4 [, index-name-5] ... 
DOWN BY integer-2 
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a eee th RO nen nner ene ty ESA An een Sn AeA 


file-name-| 


ASCENDING 
ON KEY data-name-1 [ , data-name-2 ] 


DESCENDING | 


ASCENDING ] 
ON KEY data-name-3 [ , data-name-4] ... 


DESCENDING | 


[COLLATING SEQUENCE IS alphabet-name] 


_ { THROUGH | 


INPUT PROCEDURE IS _ procedure-name-|! ‘ procedure-name-2 
o (THRU ( 
USING | file-name-2 , file-name-3 


THROUGH 
OUTPUT PROCEDURE IS procedure-name-3 | - procedure-name-4 
| THRU 


GIVING file-name-4 


IS EQUAL TO 
IS = 


START file-name KEY . SREATER no data-name 


IS NOT LESS THAN 
IS NOT < 


[; INVALID KEY imperative-statement ] 


a et A ee SERNA Psystar ERA AS SSS SESS nnn ASNT ASS 
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SYNTAX 


RUN 


) 
STor literal 


identifier-1 identifier-2 
STRING : 


literal-1 literal-2 
identifier-3 
DELIMITED BY literal-3 
SIZE 


oe identifier-5 
ae literal-5 


INTO identifier-7 [WITH POINTER _ identifier-8 ] 


- identifier-6 
DELIMITED BY literal-6 
SIZE ’ 


Ub ON OVERFLOW _ imperative-statement ] 


Format I: 
at nee eee a 
identifier-1 , identifier-2 
SUBTRACT ... FROM identifier-m [ROUNDED | 
literal-] , literal-2 
‘- identifier-n [ROUNDE D|} . a. We ON SIZE ERROR imperative-statement ] 
1108883 B-23 
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[:ON SIZE ERROR imperative-statement ] 


identifier-1 Widentifier-2 f identifier-m 
SUBTRACT ... FROM 
literal-1 , literal-2 literal-m 
GIVING identifier-n [ROUNDED | [. identifier-o [ROUNDED | ] teal 


Format 3: 
CORRESPONDING 
SUBTRACT identifier-1 FROM identifier-2 [ROUNDED] 
CORR 
[; ON SIZE ERROR imperative-statement ] 
Format | 
UNSTRING identifier-1 
identifier-2 identifier-3 
DELIMITED BY [ALL] ,OR [ALL] ous 
diteral-1 literal-2 
INTO identifier-4 [, DELIMITER IN identifier-5] [, COUNT IN identifier-6 ] | 
| « identifier-7 [, DELIMITER IN identifier-8] [| , COUNT IN identifier-9 J oee 
[WITH POINTER identifier-10] [| TALLYING IN identifier-11] 
[; ON OVERFLOW imperative-statement ] 
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SYNTAX 


Format 2 


l 


. 


ifier- 


dent 


i 


UNSTRING 


i 
N 

7 

tnd 

es Sw: 
(oo  —] 
= 
> = 
Ge 
a oe 
iad 
oe) 
ae 
y 
ad 
2 
a= 
pay 
= 
oO 
3 
oO 
bs 
é 


ier-13 
2 


dentifi 
integer- 


| 


R 
ON OVERFLOW imperative-statement | 


FO 


7 


ier- 


if 


ident 


’ 


(WITH POINTER 


— 
pa 
— 
5 
= 
ra 
0 
- 
> 
— 
—] 
< 
= 

H 


dentifier-10 ] 


i 


Z 
oe) 
i 
a4 
=) 
a 
as 
YL 
© 
~ 
a. 


[, file-name-2] 


( EXCEPTION 
ERROR 


USE AFTER STANDARD 


ile-name-1 
T 


f 
| 


fe) 


EXTEND 


| 
| 
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SYNTAX 
Format |: 
WRITE record-name [| FROM identifier-1 | 
oe ane 
BEFORE ( ) integer-| LINES 
ADVANCING 
AFTER | l mnemonic-name | 
| PAGE 
| END-OF-PAGE ] 
; AT imperative-statement 
lop | 
Format 2: 
WRITE _ record-name [FROM identifier-1 ] 
[; INVALID KEY imperative-statement ] 
Format 3: 


B-26 
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Appendix B 


SYNTAX 


NERAL FORMAT FOR DATA BASE MANAGEMENT DATA DIVISION 


GE 


L FORMAT FOR DATA BASE MANAGEMENT PROCEDURE 


DIVISION 


NERA 


GE 
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S 


peineune 


m3 


aie 
Ses 
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SYNTAX 


data-base-name — 
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APPENDIX C 
COBOL74 GRAPHICS 


Table C-1 lists the 8-bit EBCDIC internal code together with the USASCII-7, 80-column card codes and the 
associated control or special codes or graphics. Table C-2 presents similar information, but restricted to and 
in sequence of the USASCII-7 code. Table C-3 explains all the control or special codes. 

Column headings, have the following meanings in Tables C-1 and C-2: 


Column 


Heading Meaning 
A EBCDIC sequence number and decimal value 
B EBCDIC hexadecimal representation 
C ASCH-7 sequence number and decimal value 
D ASCII-7 hexadecimal representation 
E 80-column card code 
F Graphic or code 


Hexadecimal representation means that standard convention is followed for the 8-bit internal codes. These 
codes are shown translated as pairs of hexadecimal numbers in the following examples. 


Examples: 
Hex 
Number 8 -Bit 
Pair Internal Code 
8421 8421 
@39@ = 0011 1001 
@BE@ = 1011 1110 
@0F@ = 0000 1111 
Table C-1. B 1000 Codes in EBCDIC Sequence 
al sp ic | ob/| E F 
0 00 0 00 12 Q-1-8-9 NUL (Null) 
| 01 1 01 12 1-9 SOH (Start of Heading) 
2 02 2 02 12 2-9 STX (Start of Text) 
3 03 3 03 12 3-9 ETX (End of Text) 
4 04.=«. 12 4-9 
5 0S 9 09 12 5-9 HT (Horizontal Tab) 
6 06 12 6-9 
7 07 127 7F 12 7-9 DEL (Delete) 
8 08 12 8-9 
9 0S 12 1-8-9 
10 OA 12 2-8-9 
11 OB 11 OB 12 3-8-9 VT (Vertical Tab) 
12 0C 12 OC | 12 4-8-9 FF (Form Feed) 


1108883 C-1 
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Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 


| CR (Carriage Return) 
i SO (Shift Out) 
SI (Shift In) 


12-11-1-8-9 
11-1-9 
11-2-9 
11-3-9 
11-4-9 


DLE (Data Link Escape) 
DC1 (Device Control 1) 
DC2 (Device Control 2) 
DC3 (Device Control 3) 


11-5-9 
11-6-9 
11-7-9 
11-8-9 
11-1-8-9 
11-2-8-9 
11-3-8-9 
114-8-9 
11-5-8-9 
11-6-8-9 
11-7-8-9 


NL (New Line) 
BS (Backspace) 


CAN (Cancel) 
EM (End of Medium) 


FS (File Separator) 
GS (Group Separator) 
RS (Record Separator) 
US (Unit Separator) 


11-0-1-3-9 
0-1-9 
0-2-9 
0-3-9 
0-4-9 
0-5-9 LF (Line Feed) 
0-6-9 ETB (End of Transmission Block) 
0-7-9 ESC (Escape) 
0-8-9 
0- 1-8-9 
0-2-8-9 
0-3-8-9 
0-4-8-9 
0-5-8-9 ENQ (Enquiry) 
0-6-8-9 ACK (Acknowledge) 
0-7-8-9 BEL (Bell) 
-0- 1-8-9 
1-9 
2-9 SYN (Synchronous Idle) 
3-9 
4-9 


5-9 
6-9 
7-9 EOT (End of Transmission)0 


B 1000 Systems COBOL74 Reference Manual 
Appendix C 


Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 


4-8-9 DC4 (Device Control 4) 
5-8-9 NAK (Negative Acknowledge) 


(No Punches)} (SPACE) 
12 0-1-8-9 


12 0-2-9 
12 0-3-9 
12 0-4-9 
12 0-5-9 
12 0-6-9 
12 0-7-9 
12 0-8-9 
12 18 
12 2-8 [ (LEFT BRACKET) 
12 3-8 . (PERIOD, DECIMAL POINT) 
12 4-8 < (LESS-THAN SIGN) 
12 5-8 ( (LEFT PARENTHESIS) 
12 6-8 + (PLUS SIGN) 
12 7-8 | (VERTICAL, BAR) 
12 & (AMPERSAND): 
12-11-1-9 
12-11-2-9 
12-11-3-9 
12-11-4-9 
12-11-5-9 
12-11-6-9 
12-11-7-9 
12-11-8-9 
11-1-8 
11-28 ] (RIGHT BRACKET) 
11-3-8 $ (DOLLAR SIGN) 
11-4-8 * (ASTERISK) 
11-5-8 ) (RIGHT PARENTHESIS) 
11-6-8 ; (SEMICOLON) 
11-7-8 | — (LOGICAL NOT) 
11 — (MINUS, HYPHEN) 
0-1 / (SLASH) 
11-0-2-9 
11-0-3-9 
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Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 


11-0-4-9 
11-0-5-9 
11-0-6-9 
11-0-7-9 
11-0-8-9 
0-1-8 
124 | 7C 12-11 
Ad.|: OE 0-2-8 , (COMMA) 
37. | 25 0-4-8 % (PERCENT SIGN) 
95 | SF 0-5-8 ._.. (UNDERSCORE) 
62 | 3E 0-6-8 > (GREATER-THAN SIGN) 
63 | 3F 0-7-8 2 (QUESTION MARK) 
12-11-0 ! (EXCLAMATION POINT) 
12-11-0-1-9 
12-11-0-2-9 
12-11-0-3-9 
12-11-0-4-9 
12-11-0-5-9 
12-11-0-6-9 
12-11-0-7-9 
12-11-0-8-9 
9% | 60 1-8 
58 | 3A 2-8 : (COLON) 
35 | 23 3-8 # (NUMBER OR POUND SIGN) 
64 | 40 4.8 @ (AT SIGN) 
39 | 37 5-8 ’ (APOSTROPHE) 
61 | 3D 6-8 = (EQUAL SIGN) 
34 | 22 7-8 ‘“ (QUOTATION MARK) 
12 0-1-8 
97 | 61 12, OI a 
98 | 62 12 0-2 b 
99 | 63 12 03 c 
100 | 64 12 0-4 d 
101 | 65 12 0-5 e 
102 | 66 12 0-6 f 
103 | 67 i. 3027 g 
104 | 68 12 0-8 h 
105 | 69 12 0-9 i 
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Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 


12-11-1-8 
12-11-1 
12-11-2 
12-11-3 
12-11-4 
12-11-5 
12-11-6 
12-11-7 
12-11-8 
12-11-9 
12-11-2-8 
12-11-3-8 
12-114-8 
12-11-5-8 
12-11-6-8 
12-11-7-8 


11-0-1-8 


11-0-1 
11-0-2 
11-0-3 
11-0-4 
11-0-5 
11-0-6 
1-0-7 
11-0-8 
11-0-9 


11-0-2-8 
11-0-3-8 
11-0-4-8 
11-0-5-8 
11-0-6-8 
11-0-7-8 


12-11-0-1-8 


12-11-0-1 
12-11-0-2 
12-11-0-3 
12-11-0-4 
12-11-0-5 
12-11-0-6 
12-11-0-7 
12-11-0-8 
12-11-0-9 


12-11-0-2-8 


7"QDU0EB BK 


(CENTS SIGN) 


NE&x eS TMS 
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Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 


12-11-0-3-8 


187 
188 12-11-0-4-8 
189 12-11-0-5-8 
190 12-11-0-6-8 
191 12-11-0-7-8 
192 12 0 { (LEFT BRACE) 
193 12 1 A 
194 12. 2 B 
195 (2° 33 Cc 
196 12 4 D 
197 12. 5 E 
198 i2 6 F 
199 12 7 G 
| 200 12 8 H 
201 i2 9 I 
202 
| 203 
| 204 
205 
206 
207 
208 } (RIGHT BRACE) 
209 M1 J 
210 i *2 K 
211 1 3 L 
212 11 4 M 
213 5 N 
214 11 6 O 
215 i 29 P 
11 8 Q 
11 9 R 


E0 92} SC \. (REVERSE SLASH) 


El 

E2 83; 53 0-2 
E3 84} 54 0-3 
E4 85] 55 0-4 


ES 86; 56 { 0-5 
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Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 


230 57 0-6 

231 58 0-7 

232 59 0-8 

233 SA 0-9 

234 

235 

236 

237 

238 

239 

240 30 0 0 
241 31 I I 
242 32 Z 2 
243 33 3 3 
244 34 4 4 
245 3D 5 5 
246 36 6 6 
247 37 "| 7 
248 38 8 8 
249 39 9 9 
250 

251 

252 

253 

254 

255 


Table C-2 lists the 8-bit EBCDIC internal code together with the USASCII-7, and 80-column card codes in 
sequence of the USASCI-7 code. 


Table C-2. B 1000 Codes in ASCII-7 Sequence 


| 
0 NUL (Null) | 
| SOH (Start of Heading) | 
2 STX (Start of Text) | 
3 3 ETX (End of Text) | 
55 4 EOT (End of Transmission) 
45 5 ENQ (Enquiry) 
46 6 ACK (Acknowledge) 
47 7 BEL (Bell) 
22 8 BS (Backspace) 
5 9 HT (Horizontal Tab) 
37 10 | LF (Line Feed) 
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Table C-2. B 1000 Codes in ASCII-7 Sequence (Cont) 


11-7-8-9 


21 12 7-8 


20 | [NO PUNCHES] 


12 3-8-9 VT (Vertical Tab) 
12 4-8-9 FF (Form Feed) 
12 5-8-9 CR (Carriage Return) 
12, 6-8-9 SO (Shift Out) 
12 7-8-9 SI (Shift In) 
12-11-1-8-9 DLE (Data Link Escape) 
11-1-9 DC! (Device Control 1) 
11-2-9 DC2 (Device Control 2) 
11-3-9 DC3 (Device Control 3) 
4-8-9 DC4 (Device Control 4) 
5-8-9 NAK (Negative Acknowledge) 
2-9 SYN (Synchronous Idle) 
0-6-9 ETB (End of Transm. Block) 
11-&-9 CAN (Cancel) 
11-1-8-9 EM (End of Medium) 
7-8-9 SUB (Substitute) 
0-7-9 ESC (Escape) 
11-4-8-9 FS (File Separator) 
11-5-8-9 GS (Group Separator) 
11-6-8-9 RS (Record Separator) 


US (Unit Separator) 
(SPACE) 
| (VERTICAL BAR) 


7-8 ‘\ (QUOTATION MARK) 
3-8 # (NUMBER OR POUND SIGN) 
11-3-8 $ (DOLLAR SIGN) 
0-4-8: % (PERCENT SIGN) 
12 & (AMPERSAND) 
5.8 > (APOSTROPHE) 

12 5.8 ( (LEFT PARENTHESIS) 
11-5-8 ) (RIGHT PARENTHESIS) 
114-8 | * (ASTERISK) 

12 68 + (PLUS SIGN) 

0-2-8 , (COMMA) 
i — (MINUS SIGN, HYPHEN) 
iz 38 . (PERIOD) 
0-1 / (SLASH) 
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Table C-2. B 1000 Codes in ASCII-7 Sequence (Cont) 


: (COLON) 
; (SEMICOLON) 

< (LESS-THAN SIGN) 

= (EQUAL SIGN) 

> (GREATER-THAN SIGN) 
2? (QUESTION MARK) 

@ (AT SIGN) 


NK SE <CHMROVOZEZECACT™ZTOMMONS 


[ (LEFT BRACKET) 
\. (REVERSE SLASH) 
] (RIGHT BRACKET) 
| = (LOGICAL NOT) 
— (UNDERSCORE) 


omA|n oD 


C-9 
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Table C-2. B 1000 Codes in ASCII-7 Sequence (Cont) 


(LEFT BRACE) 


}.(RIGHT BRACE) 


| 
_ ¢ (CENTS SIGN) 
; DEL (Delete) 


B 1000 Systems COBOL74 Reference Manual 
Appendix C 


Table C-3 explains all of the control and special codes. The symbols are presented in the order of appearance 
in Table C-! and C-2. 


Symbol 
NUL 
SOH 


STX 


ETX 
EOT 


ENQ 


ACK 
BEL 
BS 
HT 


LF 
VT 


FF 
CR. 


SO 


SI 


1108883 


Table C-3. Description of Control and Special Characters 


Name/Function 
Null: The all zeros character which may serve to accomplish time fill and media fill. 


Start of Heading: A communication control character used at the beginning of a sequence of 
characters which constitutes a machine-sensible address or routing information. Such a 
sequence is referred to as the ‘‘heading.’’ An STX character has the effect of terminating a 
heading. 


Start of Text: A communication control character which precedes a sequence of characters 
which are to be treated as an entity and which are entirely transmitted to the ultimate 
destination. Such a sequence is referred to as ‘‘text.’” STX may be used to terminate a 
sequence of characters started by SOH. 


End of Text: A communication control character used to terminate a sequence of characters 
started with STX and transmitted as an entity. 


End .of Transmission: A communication control character used to indicate the conclusion of 
a transmission which may have contained one or more texts and any associated headings. 


Enquiry: A communication control character used in data communication systems as a 
request for a response from a remote station. It may be used as a ‘‘Who Are You’’ (WRU) 
to obtain identification, or may be used to obtain station status, or both. 


Acknowledge: A communication control character transmitted by a receiver as an affirmative 
response to a sender. 


Bell: A character for use when there is a need to call for human attention. It may control 
alarm or attention devices. 


Backspace: A format effector that controls the movement of the printing mechanism one 
print position backward on the same print line. 


Horizontal Tabulation: A format effector that controls the movement of the printing 
mechanism to the next position in a series of predetermined positions along the print line. 


Line Feed: A format effector that controls movement one line at a time. 


Vertical Tabulation: A format effector that controls movement to the next in a series of 
predetermined lines. 


Form Feed: A format effector that. controls the movement of the printing position to the first 
predetermined printing line on the next form or page. 


Carriage Return: A format effector that controls the movement of the print mechanism to the 
first print position on the same print line. 


Shift Out: A control character indicating that the code combinations that follow shall be 
interpreted as outside of the character set of the standard code table until a Shift In 
character is detected. 


Shift In: A control character indicating that the code combinations that follow shall be 
interpreted according to the standard code table. 
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Symbol 


DLE 


DCI 
DC2 
DC3 
DC4 
NAK 


SYN 


ETB 


CAN 


EM 


SUB 


ESC 


FS 
GS 
RS 
US 


SP 


DEL 
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Table C-3. Description of Contro! and Special Characters (Cont) 
Name/Function 


Date Link Escape: A communication control character that will change the meaning of a 
limited number of contiguously following characters. It is used exclusively to provide 
supplementary controls in data communication networks. 


Device Controls: Characters for the control of ancillary devices associated with data 
processing or telecommunication systems, more especially switching DC4 devices ON or 
OFF. If a single ‘‘stop’’ control is required to interrupt or turn off ancillary devices, DC4 is 
the preferred assignment. 


Negative Acknowledge: A communication control character transmitted by a receiver as a 
negative response to the sender. 


Synchronous Idle: A communication control character used by a synchronous transmission 
system in the absence of any other character to provide a signal from which synchronism 
may be achieved or retained. 


End of Transmission Block: A communication control character used to indicate the end of a 
block of data for communication purposes. ETB is used for blocking data where the block 
structure is not necessarily related to the processing format. 


Cancel: A control character used to indicate that the data with which it is sent is in error 
and is to be disregarded. 


End of Medium: A control character associated with the sent data which may be used to 
identify the physical end of the medium, or the end of the used, or wanted, portion of 
information recorded on a medium. The position vc. this character does not necessarily 
correspond to the physical end of the medium. 


Substitute: A character that may be substituted for a character which is determined to be 
invalid or in error. 


Escape: A control character intended to provide code extension (supplementary characters) in 
general information interchange. The Escape character itself is a prefix affecting the 
interpretation of a limited number of contiguously following characters. 


File Separator, Group Separator, Record Separator, and Unit Separator. These information 
separators may be optionally used within data, except that their hierarchical relationship shall 
be such that FS is the most inclusive, then GS, then RS, and US is least inclusive. The 
content and length of a File, Group, Record, or Unit are not specified. 


Space: A normally non-printing graphic character used to separate words. It is also a format 
effector which controls the movement of the printing position, one printing position forward. 


Delete: This character is used primarily to ‘‘erase’’ or ‘‘obliterate’’ erroneous or unwanted 
characters in perforated tape. In the strict sense, DEL is not a control character. 


B 1000 Systems COBOL74 Reference Manual 


APPENDIX D 
GLOSSARY 


INTRODUCTION 


The terms in this glossary are defined in accordance with meaning as used in this document describing 
COBOL/74 and may not have the same meaning for other languages. 


Data Base Management definitions are not included in this glossary. Refer to the B 1000 Systems Data Man- 
agement System II, (DMSII), reference manual for these definitions. 


DEFINITIONS 


Abbreviated Combined Relation Condition 
The combined condition that results from the explicit omission of a common subject or a common subject 
and common relational operator in a consecutive sequence of relation conditions. 


Access Mode 
The manner in which records are to be operated upon within a file. 


Actual Decimal Point 
The physical representation, using either of the decimal point characters period (.) or comma (,). of the 
decimal point position in a data item. 


Actual Key 
A key whose contents identify a logical record in a sequential file. 


Alphabet-Name 
A user-defined word, in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION, that as- 
signs a name to a specific character set and/or collating sequence. 


Alphabetic Character 
A character that belongs to the following set of letters: A, B, C, D, E, F. G, H. I, J, K, L, M,N, 
O, P,Q. R. S. T, U. V. W. X, Y, Z, and the space. 


Alphanumeric Character 
Any character in the computer character set. 


Alternate Record Key 
A key, other than the prime record key, whose contents identify a record within an Indexed File. 


Arithmetic Expression 
An arithmetic expression can be an identifier or a numeric elementary item, a numeric literal, such identi- 
fiers and literals separated by arithmetic operators, two arithmetic expressions separated by an arithmetic 
operator, or an arithmetic expression enclosed in parentheses. 
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Arithmetic Operator 
A single character. or a fixed 2-character combination, that belongs to the following set: 


Character Meaning 


+ Addition 

- Subtraction 

. Multiplication 

/ Division 

iS E:xponentiation 

Ascending Key 

A key upon the values of which data is ordered starting with the lowest value of key in accordance with 
the rules for comparing data items. 


Assumed Decimal Point 
A decimal point position which does not involve the existence of an actual character in a data item. The 
assumed decimal point has logical meaning but no physical representation. 


At End Condition 
A condition caused: 


1. During the execution of a READ statement for a sequentially accessed file. 

2. During the execution of a RETURN statement, when no next logical record exists for the associated sort 
or merge file. 

3. During the execution of a SEARCH statement, when the search operator terminates without satisfying 
the condition specified in any of the associated WHEN phrases. 


Block 
A physical unit of data that is normally composed of one or more logical records. For mass storage files, 
a block may contain a portion of a logical record. The size of a block has no direct relationship to the 
size of the file within which the block is contained or to the size of the logical record(s) that are either 
continued within the block or that overlap the block. The term is synonymous with physical record. 


Burroughs Network Architecture (BNA) 


A system which provides a means to perform distributed data processing such as remote data base access, 
file transfer, remote task initiation and control, logical I/O, interprocess communication, and resource shar- 
ing. 


Called Program 
A program which is the object of a CALL statement combined at object time with the calling program 
to produce a run unit. 


Calling Program 
A program which executes a CALL to another program. 


Cd-Name 
A user-defined word that names an MCS interface area described in a communication description entry 


within the COMMUNICATION SECTION of the DATA DIVISION. 


Character 
The basic indivisible unit of the language. 
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A character position is the amount of physical storage required to store a single standard data format 
character described as usage is DISPLAY, 


Character-String 


A sequence of contiguous characters which form a COBOL74 word, a literal, a PICTURE character- 
string, or a comment-entry. 


Class Condition 


The proposition, for which a truth value can be determined, that the content of an item is wholly alpha- 
betic or is wholly numeric. 


Clause 


A clause is an ordered set of consecutive COBOL74 character-strings whose purpose is to specify an 


attribute of an entry. 


COBOL74 Character Set 


The complete COBOL74 character set consists of the 52 characters listed below: 


COBOL74 Word 
Refer to Word. 


Collating Sequence 


Character 
0,1,.... 9 
A,B,....Z 
+ 
ae 
/ 
$ 
( 

) 
> 
< 
@ 


Meaning 


Digit 

Letter 

Space (blank) 

Plus sign 

Minus sign (hyphen) 
Asterisk 

Stroke (virgule, slash) 
Equal sign 

Currency sign 

Comma (decimal point) 
Semicolon 

Period (decimal point) 
Quotation mark 

Left parenthesis 
Right parenthesis 
Greater than symbol 
Less than symbol 
Commercial at 


The sequence in which the characters are acceptable in a computer are ordered for purposes of sorting, 


merging, and comparing. 


Column 


A character position within a print line. The columns are numbered from |, by 1, starting at the leftmost 


character position of the print line and extending to the rightmost position of the print line. 
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Combined Condition 
A condition that is the result of connecting two or more conditions with the AND or the OR logical 
operator. 


Comment-Entry 
An entry in the IDENTIFICATION DIVISION that may be any combination of characters from the com- 
puter character set. 


Comment Line 
A source program line represented by an asterisk in the indicator area of the line and any characters 
from the computer’s character set in Area A and Area B of that line. The comment line serves only 
for documentation in a program. A special form of comment line represented by a stroke (/) in the indica- 
tor area of the line and any characters from the computer’s character set in area A and area B of that 
line cause page ejection before printing a comment. 


Communication Description Entry 
An entry in the COMMUNICATION SECTION of the DATA DIVISION that is composed of the level 
indicator CD, followed by a cd-name, and then followed by a set of clauses as required. It describes 
the interface between the Data Communication Subsystem and the COBOL74 program. 


Communication Device 
A mechanism (hardware or hardware/software) capable of sending data to a queue and/or receiving data 
from a queue. This mechanism may be a computer or a peripheral device. One or more programs contain- 
ing Communication description entries and residing within the same computer define one or more of these 
mechanisms. 


Communication Section 
The section of the DATA DIVISION that describes the interface areas between the MCS and the pro- 
gram, composed of one or more CD description entries. 


Compile Time | 
The time when a COBOL74 source program is translated to a COBOL74 object program by the 
COBOL74 compiler. 


Compiler-Directing Statement 
A statement that begins with a compiler-directing verb and causes the compiler to take a specific action 
during compilation. 


Complex Condition 
A condition in which one or more logical operators act upon one or more conditions. Refer to the terms 
Negated Simple Condition, Combined Condition, and Negated Combined Condition. 


Computer-Name 
A system name that identifies the computer upon which the program is to be compiled or run. 


Condition 
A status of a program at execution time for which a truth value can be determined. Where the term 
condition’ (condition-1, condition-2, ...) appears in this language in or in reference to ’condition’ (condi- 
tion-1, condition-2, ...) of a general format. it is a conditional expression consisting of either a simple 
condition optionally parenthesized, or a combined condition consisting of the syntactically correct combi- 
nation of simple conditions, logical operators, and parentheses, for which a truth value can be deter- 
mined. 
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Condition-Name 
A user-defined word assigned to a specific value, set of values, or range of values, within the complete 
set of values that a conditional variable may possess; or the user-defined word assigned to a status of 
a switch or device. 


Condition-Name Condition 
The proposition, for which a truth value can be determined, that the value of a conditional variable is 
a member of the set of values attributed to a condition-name associated with the conditional variable. 


Conditional Expression 
A simple condition or a complex condition specified in an IF, PERFORM, or SEARCH statement. Refer 
to the terms Simple Condition and Complex Condition. 


Conditional Statement 
A conditional statement specifies that the truth value of a condition is to be determined and that the 
subsequent action of the object program is dependent on this truth value. 


Conditional Variable 
A data item one or more values of which has a condition-name assigned to it. 


Configuration Section 
A section of the ENVIRONMENT DIVISION that describes overall specifications of source and object 
computers. 


Connective 
A reserved word that is used to: 


1. Associate a data-name, paragraph-name, condition-name, or text-name with the qualifier. 
2. Link two or more operands written in a series. 
3. Form conditions (logical connectives). Refer to the term Logical Operator. 


Contiguous Items 
Items that are described by consecutive entries in the DATA DIVISION, and that bear a definite hierar- 
chic relationship to each other. 


Counter 
A data item used for storing numbers ‘or number representations in a manner that permits these numbers 
to be increased or decreased by the value of another number, or to be changed or reset to zero or to 
an arbitrary positive or negative value. 


Currency Sign 
The character °$’ of the COBOL74 character set. 


Currency Symbol 
The character defined by the CURRENCY SIGN clause in the SPECIAL-NAMES paragraph. If no 
CURRENCY SIGN clause is present in a COBOL74 source program, the currency symbol is identical 
to the currency sign. 


Current Record 
The record which is available in the record area associated with the file. 
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Current Record Pointer 
A conceptual entity that is used in the selection of the next record. 


Data Clause 
A clause that appears in a data description entry in the DATA DIVISION and provides information de- 
scribing a particular attribute of a data item. 


Data Communication Subsystem 
Consists of a Network Controller and one or more programs (optional MCS). The Network Controller 
is responsible for handling all the details of the data communications line discipline. 


Data Description Entry 
An entry in the DATA DIVISION that is composed of a level-number followed by a data-name, if re- 
quired, and then followed by a set of data clauses, as required. 


Data Item 
A character or a set of contiguous characters (excluding in either case literals) defined as a unit of data 
by the COBOL74 program. 


Data-Name 
A user-defined word that names a data item described in a data description entry in the DATA DIVI- 
SION. When used in the general formats, data-name represents a word which can neither be subscripted, 
indexed, nor qualified unless specifically permitted by the rules for that format. 


Debugging Line 
A debugging line is any line with D in the indicator area of the line. 


Debugging Section 
A debugging section is a section that contains a USE FOR DEBUGGING statement. 


Declaratives 
A set of one or more special purpose sections, written at the beginning of the PROCEDURE DIVISION, 
the first of which is preceded by the key word DECLARATIVES and the last of which is followed by 
the key words END DECLARATIVES. A declarative is composed of a section header, followed by a 
USE compiler directing sentence, followed by a set of zero, one or more associated paragraphs. 


Declarative-Sentence 
A compiler-directing sentence consisting of a single USE statement terminated by the separator period. 


Delimiter 
A character or a sequence of contiguous characters that identify the end of a string of characters and 
separates that string of characters from the following string of characters. A delimiter is not part of the 
string of characters that it delimits. 


Descending Key 
A key upon the values of which data is ordered starting with the highest value of key down to the lowest 
value of key, according to the rules for comparing data items. 


Destination 
The symbolic identification of the receiver of a transmission from a queue. 


D-6 


B 1000 Systems COBOL74 Reference Manual 
Appendix D 


Digit Position 
A digit position is the amount of physical storage required to store a single digit. This amount may vary 
depending on the usage of the data item describing the digit position. 


Division 
A set of zero, one or more sections of paragraphs, called the division body, that are formed and com- 


bined in accordance with a specific set of rules. There are four divisions in a COBOL74 program: IDEN- 
TIFICATION, ENVIRONMENT, DATA, and PROCEDURE. 


Division Header 
A combination of words followed by a period and a space that indicates that beginning of a division. 
The division headers are: 


IDENTIFICATION DIVISION. 

ENVIRONMENT DIVISION. 

DATA DIVISION. 

PROCEDURE DIVISION [USING data-name-1! [data-name-2] ... ] . 


Dynamic Access 
An access mode in which specific logical records can be obtained from or placed into a mass storage 
file in a nonsequential manner (see Random Access) and obtained from a file in a sequential manner (see 
Sequential Access), during the scope of the same OPEN statement. 


Editing Character 
A single character or a fixed two-character combination belonging to the following set: 


Comma (decimal point) 
Period (decimal point) 
po Stroke (virgule, slash) 


Character Meaning 

B Space 

0 Zero 

+ Plus 

- Minus 

CR Credit 

DB Debit 

Z Zero suppress 
Check protect 

$ Currency sign 


Elementary Item 
- A data item that is described as not being further logically subdivided. 


End of PROCEDURE DIVISION 
The physical position in a COBOL74 source program after which no further procedures appear. 


Entry 
Any descriptive set of consecutive clauses terminated by a period and written in the IDENTIFICATION 
DIVISION, ENVIRONMENT DIVISION, or DATA DIVISION of a COBOL74 source program. 
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Environment Clause 
A clause that appears as part of an ENVIRONMENT DIVISION entry. 


Execution Time 
See Object Time. 


Extend Mode 
The state of a file after execution of an OPEN statement, with the EXTEND phrase specified for that 
file and before the execution of a CLOSE statement for that file. 


Figurative Constant 
A compiler-generated value referenced through the use of certain reserved words. 


File 
A collection of records. 


File Clause 
A clause that appears as part of any of the following DATA DIVISION entries: 


File description (FD) 
Sort-Merge file description (SD) 
Communication description (CD) 


FILE-CONTROL 
The name of an ENVIRONMENT DIVISION paragraph in which the data files for a given source pro- 
gram are declared. 


File Description Entry 
An entry in the FILE SECTION of the DATA DIVISION that is composed of the level indicator FD, 
followed by a file-name, and then followed by a set of file clauses as required. 


File-Name 
A user-defined word that names a file described in a file description entry within the FILE SECTION 
of the DATA DIVISION. 


File Organization 
The permanent logical file structure established at the time that a file is created. 


File Section 
The section of the DATA DIVISION that contains file description entries and Sort-Merge file description 
entries together with associated record descriptions. 


Format 
A specific arrangement of a set of data. 


Group Item 
A named contiguous set of elementary or group items. 


Hexadecimal Literal 
A character-string bounded by @ signs. The string of characters must consist of one or more characters 
chosen from the set of hexadecimal digits consisting of the digits 0 through 9, A, B, C, D, E, and F. 
The characters A through F are the hexadecimal digit representation for the decimal values 10 through 


ee 
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High Order End 
The leftmost character of a string of characters. 


I-O-Control 
The name of an ENVIRONMENT DIVISION paragraph in which object program requirements for spe- 
cific input-output techniques, rerun points, sharing of same areas by several data files, and multiple file 
storage on a single input-output device are specified. 


I-O Mode 
The state of a file after execution of an OPEN statement, with the I-O phrase specified, for that file 
and before the execution of a CLOSE statement for that file. 


Identifier 
A data-name, followed as required by the syntactically correct combination of qualifiers, subscripts, and 
indices necessary to make unique reference to a data item. 


Imperative Statement 
A statement that begins with an imperative verb and specifies an unconditional action to be taken. An 
imperative statement may consist of a sequence of imperative statements. 


Index 


A computer storage position or register, the contents of which represent the identification of a particular 
element in a table. 


Index Data Item 
A data item in which the value associated with an index-name can be stored. 


Index-Name 
A user-defined word that names an index associated with a specific table. 


Indexed Data-Name 
An identifier that is composed of a data-name, followed by one or more index-names enclosed in paren- 
theses. 


Indexed File 
A file with indexed organization. 


Indexed Organization 
The permanent logical file structure in which each record is identified by the value of one or more keys 
within that record. 


Input File 
A file that is opened in the input mode. 
Input Mode 


The state of a file after execution of an OPEN statement, with the INPUT phrase specified, for that 
file and before the execution of a CLOSE statement for that file. 


Input-Output 
A file that is opened in the I-O mode. 
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INPUT-OUTPUT SECTION 
The section of the ENVIRONMENT DIVISION that names the files and the external media required 
by an object program and which provides information required for transmission and handling of data dur- 
ing execution of the object program. 


Input Procedure 
A set of statements that is executed each time a record is released to the sort file. 


Integer 
A numeric literal or a numeric data item that does not include any character positions to the right of 
the assumed decimal point. Where the term ’integer’ appears in general formats, integer must not be a 
numeric data item, and must not be signed nor zero unless explicitly allowed by the rules of that format. 


Intermediate Data Item 
A signed numeric data-item provided by the compiler that contains the results developed in. the course 
of an arithmetic operation prior to the final result being moved to the resultant-identifier, if any. 


Invalid Key Condition 


A condition, at object time, caused when a specific value of the key associated with an Indexed or 
Relative File is determined to be invalid. 


Key 


A data item which identifies the location of a record, or a set of data items which serve to identify the 
ordering of data. 


Key of Reference 
The key, either prime or alternate, currently being used to access records within an Indexed File. 


Key Word 


A reserved word whose presence is required when the format in which the word appears is used in a 
source program. 


Language-Name 
A system name that specifies a particular programming language. 


Level Indicator 
Two alphabetic characters that identify a specific type of file or a position in hierarchy. 


Level-Number 
A user-defined word which indicates the position of a data item in the hierarchical structure of a logical 
record or which indicates special properties of a data description entry. A level-number is expressed as 
a one- or two-digit number. Level-numbers in the range 1 through 49 indicate the position of a data item 
in the hierarchical structure of a logical record. Level-numbers in the range 1 through 9 may be written 
either as a single digit or as a zero followed by a significant digit. Level-numbers 66, 77, and 88 identit'y 
special properties of a data description entry. 


Library-Name 


A user-defined word that names a COBOL74 library that is to be used by the compiler for a given source 
program compilation. 
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Library-Text 
A sequence of character-strings and/or separators in a COBOL74 library. 


Line Number 
An integer that denotes the vertical position of a report line on a page. 


Linkage Section 
The section in the DATA DIVISION of the called program that describes data items available from the 
calling program. These data items may be referred to by both the calling and called program. 


Literal 
A character-string whose value is implied by the ordered set of characters comprising the string. 


Logical Operator 
One of the reserved words AND, OR, or NOT. In the formation of a condition, AND and/or OR can 
be used as logical connectives. NOT can be used for logical negation. 


Logical Record 
The most inclusive data item. The level-number for a record is 01. 


Low Order End 
The rightmost character of a string of characters. 


Mass Storage 


A storage medium on which data may be organized and maintained in both a sequential and nonsequen- 
tial manner. 


Mass Storage Control System (MSCS) 
An input-output control system that directs, or controls, the processing of mass storage files. 


Mass Storage File 
A collection of records that is assigned to a mass storage medium. 


MCS 
Refer to Message Control System. 


Merge File 
A collection of records to be merged by a MERGE statement. The merge file is created and can be used 
only by the merge function. 


Message 
Data associated with an end of message indicator or an end of group indicator. Refer to Message Indica- 


tors. 


Message Control System (MCS) 
A communication control system that supports the processing of messages. 


Message Count 
The count of the number of complete messages that exist in the designated queue of messsages. 
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Message Indicators 
EGI (end of group indicator), EMI (end of message indicator), and ESI (end of segment indicator) are 
conceptual indications that serve to notify the MCS that a specific condition exists. 


Within the hierarchy of EGI, EMI, ESI, an EGI is conceptually equivalent to an ESI, EMI, and EGI. 
An EMI is conceptually equivalent to an ESI and EMI. Thus, a segment may be terminated by an EMI 
or EGI. 


Message Segment 
Data that forms a logical subdivision of a message normally associated with an end of segment indicator. 
Refer to Message Indicators. 


Mnemonic-Name 
A user-defined word that is associated in the ENVIRONMENT DIVISION with a specified name. 


MSCS 
Refer to Mass Storage Control System. 


Native Character Set 
The character set associated with the computer for which object code is generated. 


Native Collating Sequence 
The collating sequence associated with the native character set. 


Negated Combined Condition 
The NOT logical operator immediately followed by a parenthesized combined condition. 


Negated Simple Condition 
The NOT logical operator immediately followed by a simple condition. 


Network Controller 
The Network Controller program is a data communications operating system and is responsible for han- 
dling all of the details of the data communications line discipline. 


Next Executable Sentence 


The next sentence to which control will be transferred after execution of the current statement is com- 
plete. 


Next Record 
The record which logically follows the current record of a file. 


Noncontiguous Items 
Elementary data items, in the WORKING-STORAGE and LINKAGE SECTIONS, which bear no hierar- 
chic relationship to other data items. 


Nonnumeric Item 
A data item whose description permits its contents to be composed of any combination of characters 
taken from the computer’s character set. Certain categories of nonnumeric items may be formed from 
more restricted character sets. 
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Nonnumeric Literal 
A character-string bounded by quotation marks. The string of characters may include any character in 


the computer’s character set. To represent a single quotation mark character within a nonnumeric literal. 
two contiguous quotation marks must be used. 


Numeric Character 
A character that belongs to the following set of digits: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9. 


Numeric Item 
A data item whose description restricts its contents to a value represented by characters chosen from 


the digits 0 through 9; if signed, the item may also contain a +, -, or other representation of an 
operational sign. 


Numeric Literal 


A literal composed of one or more numeric characters that also may contain either a decimal point, an 
algebraic sign, or both. The decimal point must not be the rightmost character. The algebraic sign, if 
present, must be the leftmost character. 


OBJECT-COMPUTER 
The name of an ENVIRONMENT DIVISION paragraph in which the computer environment, within 
which the object program is executed, is described. 


Object of Entry 


A set of operands and reserved words, within a DATA DIVISION entry, that immediately follows the 
subject of the entry. 


Object Program 
A set or group of executable instructions and other material designed to interact with data to provide 
problem solutions. In this context, an object program is generally the result of the operation of a 
COBOL74 compiler on a source program. Where there is no danger of ambiguity, the word ‘program’ 
alone may be used in place of the phrase object program’. 


Object Time 
The time at which an object program is executed. 


ODT 
Operator Display Terminal. 


Open Mode 
The state of a file after execution of an OPEN statement for that file and before the execution of a 


CLOSE statement for that file. The particular open mode is specified in the OPEN statement as either 
INPUT, OUTPUT, I-O, or EXTEND. 


Operand 
Whereas the general definition of operand is ’that component which is operated upon,’ for the purposes 
of this manual, any lower-case word or words that appear in a statement or entry format may be consid- 
ered to be an operand and, as such, imply reference to the data indicated by the operand. 


Operational Sign 
An algebraic sign, associated with a numeric data item or a numeric literal, to indicate whether its value 
is positive or negative. 
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Optional Word 
A reserved word that is included in a specific format only to improve the readability of the language 
and whose presence is optional to the user when the format in which the word appears is used in a 
source program. 


Output File 
A file that is opened in either the output mode or extend mode. 


Output Mode 
The state of a file after execution of an OPEN statement, with the OUTPUT or EXTEND phrase 
specified for that file and before the execution of a CLOSE statement for that file. 


Output Procedure 
A set of statements to which control is given during execution of a SORT statement after the sort func- 
tion is completed, or during execution of a MERGE statement after the merge function has selected the 
next record in merged order. 


Page 
A vertical division of a report representing a physical separation of report data, the separation being 
based on internal reporting requirements and/or external characteristics of the reporting medium. 


Page Body 
That part of the logical page in which lines can be written and/or spaced. 


Page Footing 
A report group that is presented at the end of a report page. 


Page Heading 
A report group that is presented at the beginning of a report page. 


Paragraph 
In the PROCEDURE DIVISION, a paragraph-naine followed by a period and a space and by zero, one, 
or more sentences. In the IDENTIFICATION and ENVIRONMENT DIVISIONS, a paragraph header 
followed by zero, one, or more entries. 


Paragraph Header 
A reserved word, followed by a period and a space that indicates the beginning of a paragraph in the 
IDENTIFICATION and ENVIRONMENT DIVISIONS. The permissible paragraph headers are: 


In the. IDENTIFICATIG DIVISION: 
PROGRAM-1D. 
AUTHOR. 
INSTALLATION. 
DATE=WRITTEN. 
DATE-COMPILED, 
SECURITY. 
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In the ENVIRONMENT DIVISION: 


SOURCE~COMPUTER. 
OBJECT-COMPUTER. 
SPECIAL-NAMES. 
FILE-CONTROL. 
1-O-CONTROL. 


Paragraph-Name 
A user-defined word that identifies and begins a paragraph in the PROCEDURE DIVISION. 


Phrase 
A phrase is an ordered set of one or more consecutive COBOL74 character-strings that form a portion of 


a COBOL74 procedural statement or of a COBOL74 clause. 


Physical Record 
Refer to Block. 


Port File 
A type of file used by the Burroughs Network Architecture (BNA) system to provide paths between two 


or more processes. 


Prime Record Key 
A key whose contents uniquely identify a record within an Indexed File. 


Procedure 
A paragraph or group of logically successive paragraphs, or a section or group of logically successive sec- 
tions, within the PROCEDURE DIVISION. 


Procedure-Name 
A user-defined word which is used to name a paragraph or section in the PROCEDURE DIVISION. It 


consists of a paragraph-name (which may be qualified) or a section-name. 


Program-Name 
A user-defined word that identifies a COBOL74 source program. 


Pseudo-Text 
A sequence of character-strings and/or separators bounded by, but not including, pseudo-text delimiters. 


Pseudo-Text Delimiter 
Two contiguous equal sign (=) characters used to delimit pseudo-text. 


Punctuation Character 
A character that belongs to the following set: 


Character Meaning 

Comma 
Semicolon 
Period 
Quotation mark 

( Left parenthesis 

) Right parenthesis 
Space 

= Equal sign 

(a Commercial at 
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Qualified Data-Name 
An identifier that is composed of a data-name followed by one or more sets of either of the connectives 
OF and IN followed by a data-name qualifier. 


Qualifier 
1. A data-name which is used in a reference together with another data-name at a lower level in the 
same hierarchy. 
2. A section-name which is used in a reference together with a paragraph-name specified in that section. 
3. A library-name which is. used in a reference together with a text-name associated with that library. 


Queue 
A logical collection of messages awaiting transmission or processing. 


Queue Name 
A symbolic name that indicates to the MCS the logical path by which a message or a portion of a com- 
pleted message may be accessible in a queue. 


Random Access 
An access mode in which the program-specified value of a key data item identifies the logical record 
that is obtained from. deleted from or placed into a Relative or Indexed file. 


Record 
Refer to Logical Record. 


Record Area 


A. storage area allocated for the purpose of processing the record described in a record description entry 
in the FILE SECTION. 


Record Description 
Refer to Record Description Entry. 


Record Description Entry 
The total set of data description entries associated with a particular record. 


Record Key 


A key. either the prime record key or an alternate record key, whose contents identify a record within 
an Indexed File. 


Record-Name 


A user-defined word that names a record described in a record description entry in the DATA DIVI- 
SION. 


Reference Format 
A format that provides a standard method for describing COBOL74 source programs. 


Relation 
Refer to Relational Operator. 
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Relation Character 
A character that belongs to the following set: 


Character Meaning 
> Greater than 
< Less than 
= Equal to 


Relation Condition 


The proposition, for which a truth value can be determined, that the value of an arithmetic expression 


or data item has a specific relationship to the value of another arithmetic expression or data item. Refer 
to Relational Operator. 


Relational Operator 


A reserved word, a relation character, a group of consecutive reserved words, or a group of consecutive 
reserved words and relation characters used in the construction of a relation condition. The permissible 
operators and their meanings are: 


Relational Operator Meaning 

(S [NOT] GREATER THAN Greater than or not greater than 
1S [NOT] > 

1S [NOT] LESS THAN 

is [NOT] < Less than or not less than 

1S [NOT] EQUAL TO 

is [NOT] = Equal to or not equal to 


Relative File 
A file with relative organization. 


Relative Key 
A key whose contents identify a logical record in a Relative File. 


Relative Organization 


The permanent logical file structure in which each record is uniquely identified by an integer value great- 
er than zero, which specifies the record’s logical ordinal position in the file. 


Reserved Word 


A COBOL74 word specified in the list of words which may be used in COBOL74 source programs, but 
which must not appear in the programs as user-defined words. 


Resultant-Identifier 
A user-defined data item that is to contain the result of an arithmetic expression. 


Run Unit 


A set of one or more object programs which function, at object time, as a unit to provide problem solu- 
tions. 
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Section 
A set of zero, one. or more paragraphs or entries. called a section body, the first of which is preceded 
by a section header. Each section consists of the section header and the related section body. 


Section Header 
A combination of words followed by a period and a space that indicates the beginning of a section in 
the ENVIRONMENT, DATA, and PROCEDURE DIVISIONS. 


In the ENVIRONMENT and DATA DIVISIONS, a section header is composed of reserved words fol- 
lowed by a period and a space. The permissible section headers are: 


In the ENVIRONMENT DIVISION: 


CONFIGURATION SECTION. 
INPUT-OUTPUT SECTION. 


In the DATA DIVISION: 


FILE SECTION. 
WORKING-STORAGE SECTION. 
LINKAGE SECTION. 
COMMUNICATION SECTION. 


In the PROCEDURE DIVISION, a section header is composed of a section-name, followed by the reserved 
word SECTION, followed by a segment-number (optional), followed by a period and a space. 


Section-Name 
A user-defined word which names a section in the PROCEDURE DIVISION. 


Segment-Number 
A user-defined word which classifies sections in the PROCEDURE DIVISION for purposes of segmenta- 
tion. Segment-numbers may contain only the characters ’0’, I’, ..., °9’. A segment-number may be ex- 
pressed as a I-, 2-, 3-, or 4-digit number. 


Sentence 
A sequence of one or more statements, the last of which is terminated by a period followed by a space. 


Separator 
A punctuation character used to delimit character-strings. 


Sequential Access 
An access mode in which logical records are obtained from or placed into a file in-a consecutive prede- 
cessor-to-successor logical record sequence determined by the order of the records in the file. 


Sequential File 
A file with sequential organization. 
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Special Character 
A character that belongs to the following set: 


Character Meaning 
+ Plus sign 
_ Minus sign 
. Asterisk 
/ ‘Stroke (virgule, slash) 
= Equal sign 
$ Currency sign 
; Comma (decimal point) 
: Semicolon 
, Period (decimal point) 
- Quotation mark 


( Left parenthesis 

) Right parenthesis 

> Greater than symbol 
< Less than symbol 
@ Commercial at 


Special-Character Word 
A reserved word which is an arithmetic operator or a relation character. 


SPECIAL-NAMES 
The name of an ENVIRONMENT DIVISION paragraph in which names are related to user specified mne- 


monic-names. 


Special Registers 
Compiler-generated storage areas whose primary use is to store information produced in conjunction with 


the user of specific COBOL74 features. 


Standard Data Format 
Describes the characteristics of data in a COBOL74 DATA DIVISION under which the characteristics or 


properties of the data are expressed by the appearance of the data on a printed page of infinite length and 
breadth. Standard Data Format is not a form oriented to the manner in which data is stored internally 
in the computer, or on a particular external medium. 


Statement 
A syntactically valid combination of words and symbols written in the PROCEDURE DIVISION beginning 


with a verb. 


Sub-Queue 
A logical hierarchical division of a queue. 


Subfile 
The unique connection to an individual process in a Burroughs Network Architecture (BNA) port file. 


Subject of Entry 
An operand or reserved word that appears immediately following the level indicator or the level-number 


in a DATA DIVISION entry. 


Subprogram 
Refer to Called Program. 
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Subscript 
An integer whose value identifies a particular element in a table. 


Subscripted Data-Name 


An identifier that is composed of a data-name followed by one or more subscripts enclosed in parenthe- 
ses. 


Switch-Status Condition 


The proposition, for which a truth value can be determined, that a switch, capable of being set to an 
‘on’ or ‘off’ status, is set to a specific status. 


System Name 
A COBOL74 word which is used to communicate with the operating environment. 


Table 


A set of logically consecutive items of data that are defined in the DATA DIVISION by means of the 
OCCURS clause. 


Table Element 
A data item that belongs to the set of repeated items comprising a table. 


Terminal 
The originator of a transmission to a queue, or the receiver of a transmission from a queue. 


Text-Name 
A user-defined word which identifies library text. 


Text-Word 
Any character-string or separator, except space, in a COBOL74 library or in pseudo-text. 


Truth Value 
The representation of the result of the evaluation of a condition in terms of one of two values: 


TRUE 
FALSE 


Unary Operator . 
A plus (+) or a minus (—) sign, which precedes a variable or a left parenthesis in an arithmetic expression 
and which has the effect of multiplying the expression of +1 or —1, respectively. 


Unit 
A module of mass storage. 


User-Defined Word 
A COBOL74 word that must be supplied by the user to satisfy the format of a clause or statement. 


Variable 


A data item whose value may be changed by execution of the object program. A variable used in an 
arithmetic expression must be a numeric elementary item. 
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Verb 
A word that expresses an action to be taken by a COBOL74 compiler or object program. 


Word 


A character-string of not more than 30 characters which forms a user-defined word, a system-name, or 
a reserved word. 


WORKING-STORAGE SECTION 
The section of the DATA DIVISION that describes working-storage data items, composed either of non- 
contiguous items or of working-storage records or of both. 


77-Level-Description-Entry 
A data description entry that describes a noncontiguous data item with the level-number 77. 
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APPENDIX E 
COBOL74 S-LANGUAGE 


GENERAL 


B 1000 COBOL74 S-language provides the virtual machine interface between the code generated by the 
COBOL74 compiler and the COBOL74 interpreter. This appendix includes a description of the format of 
COBOL74 S-instructions and an explanation of each operator as a member of one of the following classes: 


ARITHMETIC 

DATA MOVEMENT 

BRANCHING 

CONDITIONAL BRANCHING 
MISCELLANEOUS 

CHARACTER STRINGS 
INTERPROGRAM COMMUNICATION 


S-LANGUAGE PROGRAMS. 


All COBOL74 S-language programs have a base register and a limit register associated with them. The area 
between the base and the limit is to be used as data space only. All program code, organized in segment form, 


is stored at any available location in memory, according to the memory management algorithms used by the 
B 1000 operating system. 


The data space includes a nonoverlayable area which contains various parameters such as edit masks, literals, 
and record areas. 


Various parameters, necessary for the running of the S-language object code are stored beyond the Limit Reg- 
ister in the Run Structure Nucleus (RSN). 
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COBOL74 S-LANGUAGE 


A typical COBOL74 program layout in memory is shown in Figure E-1. 


EDIT TABLE (8 CHRS) 


BASE REGISTER 


SPECIAL REGISTERS 


COLLATE TABLE ADDRESS 
(24 BITS) 


DATANAME MONITOR 
SYMBOLS 


EDIT MASKS 


STATIC MEMORY DATA SEGMENT ZERO 


NONOVERLAYABLE 
USER’S DATA AREA 


TRASH (INTERMECIATE RESULTS) 


LITERAL POOL 


ALTER TABLE (IF ANY) 
— STACK BASE 


STACK 
— STACK LIMIT 


DYNAMIC MEMORY NOT ASSIGNED 


—: EXTENDABLE LIMIT 
REINSTATE INFO REGISTER 
AND RUN STRUCTURE (BOJ ATTRIBUTE) 


LIMIT REGISTER 


DATA DICTIONARY 


$-CODE 


G12342 


Figure E-1. COBOL74 Program Layout 


Special registers are listed in Table E-1. 


Table E-1. Special Registers 


Address Name Picture 
0 Swi 9 CMP 
7 SW8 9 CMP 
49 DM-STATUS 9 (2) 
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CONTAINER SIZE 


Container size is a field size in bits necessary to contain the maximum value required for that field. For exam- 
ple, a container size of five bits allows a field size to house a 32-bit address (0-31). 


All container sizes in the COBOL74 S-Machine are fixed length and shown in Table E-2. 


Table E-2. Container Sizes 


Abbreviation Container Length 
OP Opcode 9 bits 
LEN Data length op 14 bits 
DISP Data displacement 20 bits 
SEG Data segment number 10 bits 
BADDR Branch address 21 bits 
DADDR Data address 20 bits 


S-INSTRUCTION FORMAT 


Each COBOL74 S-instruction consists of an S-operator followed by arguments consisting of.a variable number 
of bits. The format and interpretation of these arguments are specified by the S-operator and are described 
in detail by the specification of the individual operators. An example of one such instruction format is illus- 
trated below. 


OP! OPND COP 
(9) (Variable). (Variable) 


-COP Information or Literal 


COP Information or Literal 


S-OPERATORS 


All S-operators are encoded in a 9-bit S-operator field denoted as OPI. 


COP AND OPND 


A COP is an inline descriptor pointing to a data item or a literal. An operand (OPND) may be an inline COP 
or an inline literal. All data items are placed in data segment zero. 


There are three types of descriptors: a short COP, a long COP with segment numbers, and a long COP without 
segment numbers. 
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COBOL74 S-LANGUAGE 
Short COP 
Format: 
0 1 = 7 24 
ra DATA LENGTH Ee DISP 
6 17 


A short COP cannot be generated for subscripts, indexes, IPC data, or literals. Because a short COP does 
not contain information on data types, it can be used only with the following S-operators: 


MVA CPN 
MVN CPZ 
MVZ INC 
CPA INC] 


Long COP with No Segment Number 


Format: 


DISP 


10 4/8 MSIL DATA LENGTH rest unchanged 


LITERAL 
This COP can be used for any data except IPC data. A description of the fields is found in the following sec- 


tion on In-line Descriptors. 


Long COP with Segment Number 


0 si 6 10 oe 24 34 54 
| 11 | as | MSIL | bata LENGTH DISP rest unchanged 


This COP can be used for IPC data only. It cannot be used for literals. Descriptions of the fields are provided 
in the following section on In-line Descriptors. 
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COBOL74 S-LANGUAGE 


COBOL74 IN-LINE DESCRIPTORS 


An in-line descriptor must provide for the following capabilities: 


1. Multidimensional tables with unlimited subscripting/indexing (the real limit is 48). 
2. Run-time bounds-checking on each dimension of a table. 

3. Variable length data items with an OCCURS DEPENDING clause. 

4. Shared data addressing. 

5. The specification of CODE-SET. 


A variable length data item may be declared in COBOL74 by using an OCCURS DEPENDING clause. 
Example: 


O1 A. 
02 B PIC X, 
02 C 0C 5 TO 10 TIMES DEPENDING ON V, 
03 D PIC X OC 20 TIMES. 


In this data structure, A is a variable length item whose length is determined as follows: 
LENGTH [A] = LENGTH [B] + ( V * LENGTH [C] ) 
where 5 LEQ V LEQ 10 
When A is referenced, only that part of it defined by the calculated length is used in any operation. 


When C or D is referenced, the length is not variable, but V must be bound-checked to verify that the re- 
quested table element exists. 


The Restrictions: 
1. A data description entry that contains an OCCURS DEPENDING clause may only be followed by 
entries that are subordinate to it. 


2. The OCCURS DEPENDING clause cannot be specified in a data description entry that describes an 
item whose size is variable. 


These restrictions ensure that the description of the first subscript/index associated with a variable is the only 
one that contains an OCCURS DEPENDING clause. 


IMPLEMENTATION STRATEGY 


COBOL74 S-language employs a continue flag to tell the interpreter that more COP information is specified. 


The same bounds-checking information is needed when referencing either a variable length item or the first 
dimension of a subscripted variable contained. in a variable length item. Dimension information required for 
the subsequent dimensions is different from that which is required for the first dimension. 


When a variable length item is referenced, the COP of the OCCURS DEPENDING operand is provided fol- 
lowing the COP of data-name. The operand is bound-checked to verify that it is within the specified integer 
range. 
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COBOL74 S-LANGUAGE 


MULTIPLE-ENTRY-FLAG 


The MULTIPLE-ENTRY-FLAG is TRUE when indicating that multiple entry attributes are associated with 
this entry and FALSE when indicating otherwise. When TRUE, the next entry(s) contain(s) the necessary OC- 
CURS DEPENDING and/or subscripting or indexing attribute information. 


SHARED-DATA-FLAG 


The SHARED-DATA-FLAG is TRUE when indicating that this entry was a data item passed by a CALL 
statement of another program and FALSE when indicating otherwise. When TRUE, IPCD-INDEX specifies 
the location of the IPC.DICTIONARY descriptor for this entry. 


LITERAL-FLAG 


If this flag is set. then a literal follows after the DATA LENGTH field. 


DATA LENGTH 


The data length field is 14 bits wide and contains the length of the data in digits. If this field is the length 
of a variable length item, the data length field contains the length of that part of the table which is not variable. 
The actual length is calculated at run time by the interpreter (refer to Depending Attributes in this section). 


SEGMENT NUMBER 


Segment number is expressed in binary and specifies the data segment number of the operand. It is 10 bits 
in length. 


DISPLACEMENT 


Displacement is expressed in binary and specifies the digit displacement of the data from the base of the data 


segment. All data is stored beginning at an address which modulo 4-bit must equal zero. The container size 
is 20 bits. 


DEPENDING-FLAG 


The DEPENDING-FLAG is TRUE when indicating that an OCCURS DEPENDING operand is associated 
with this variable and FALSE when indicating otherwise. When TRUE, the bounds-checking and factor infor- 
mation follow in the entry. This is followed by any subscripting or indexing information that may be necessary. 


DEPENDING ATTRIBUTES 


When the DEPENDING-FLAG is TRUE. the attributes of the DEPENDING operand are encoded in LOW- 
ER-BOUND-0, UPPER-BOUND-0,. and FACTOR-O, which are binary fields. LOWER-BOUND-0 and UPPER- 
BOUND-0 contain the integer range of the DEPENDING operand while FACTOR-0 contains the digit dis- 
placement between elements of the table. 


The value of the DEPENDING operand is verified to be greater than or equal to LOWER-BOUND-O and 
less than or equal to UPPER-BOUND-0. If the value is outside the range. then an error communicate is issued. 
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If CONTINUE-FLAG-0 is FALSE, then the value of the DEPENDING operand is multiplied by FACTOR- 
0 and is added to the data length specified in the primary COP entry, and decoding of the multiple entry attri- 
butes terminates. In this case, the data length specified in the COP entry is the fixed part of the table. 


If CONTINUE-FLAG-0 is TRUE, then subscripting or indexing information follows. One is subtracted from 
the value of the DEPENDING operand and the result is multiplied by FACTOR-0 to form a new upper-bound. 
In this case, FACTOR-! and UPPER-BOUND.-1 are omitted from the entry because the equivalence of those 
factors is represented by FACTOR-0 and NEW.UPPER.BOUND. 


SUBSCRIPT-FLAG 


If the SUBSCRIPT-FLAG is FALSE, it specifies that indexing information follows and that the factor associ- 
ated with each dimension of the table is omitted. If it is TRUE, it specifies that subscripting information fol- 
lows for each dimension of the table. 


Factor and upper-bound fields are binary. Factor is the digit displacement between elements of the table. Up- 
per-bound is the maximum digit displacement allowed for this dimension of the table. UPPER-BOUND.-O dif- 
fers from the other upper-bound fields in that it represents the maximum value of the DEPENDING operand. 


SUBSCRIPTING 


Subscripting requires a factor and an upper-bound for each dimension of the variable. The continue-flag is 
TRUE until the last dimension is reached. When the continue-flag becomes FALSE, decoding is terminated. 


Each subscript value is obtained and | is subtracted from it. If the result is less than zero, an error communi- 
cate is issued; otherwise, the result is multiplied by the associated factor and the product is compared to the 
corresponding upper-bound. If the product exceeds the upper-bound, an error communicate is issued: other- 
wise, the product is added to the address displacement. 


INDEXING 


Because an index value is premultiplied by the associated factor, the factor required for subscripting is omitted 
from the attributes. An upper-bound is required for each dimension of the variable. The continue-flag is TRUE 
until the last dimension is reached. When the continue-flag becomes FALSE, decoding is terminated. 


Each index value is obtained, and if it is less than zero or greater than the upper-bound, an error communicate 


is issued; otherwise, the value is added to the address displacement. The format of the index consists of a 
4-bit sign followed by seven 4-bit decimal digits. 
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IN-LINE COP ENTRY FORMAT 


The format of an in-line COP entry is as follows: 


0 4 5 6 7 8 22 


MULTIPLE DATA LENGTH 
ENTRY 


FLAG 


SHARED 
LITERAL 
DATA FLAG 


FLAG 


SIGNED 


4 = 4-BIT 0 = No Sign 
8 = 8-BIT 1 = Sign 
22 32 __52 <——— Bit Position 
aed #1 DISPLACEMENT IN 


DIGITS 


IPCD INDEX 


CONTINUE- 
FLAG-O 
(1) 


DEPENDING- COP-O LOWER- UPPER- 
FLAG BOUND-O BOUND-0 
(1) (20 BITS) (20 BITS) 


FACTOR-O 
(14 BITS) 


OCCURS DEPENDING Value 


Omitted if DEPENDING-FLAG=0 


Omitted if DEPENDING-FLAG=1 


RF canes cepacia eee 


SUBSCRIPT- COP-1 FACTOR-| UPPER- CONTINUE- 
FLAG (14BITS) BOUND-1 FLAG-1 
(1) (20 BITS) (1) 


a Omitted if Indexing 


Subscript or Index Value 


0 = INDEXING 
] = SUBSCRIPTING 


COP-N-  FACTOR-N UPPER- CONTINUE- 
(14 BITS) BOUND-N — FLAG-N 
(20 BITS) (1) 


a Omitted if Indexing 


Subscript or Index Value 
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The following list contains the name, mnemonic, and arguments for each instruction in the COBOL74 S-Lan- 
guage which are discussed in more detail within this appendix. 


ARITHMETIC 


Name 


INCREMENT 

ADD 

DECREMENT 
SUBTRACT 
MULTIPLY 

DIVIDE 

DIVIDE SPECIAL 
INCREMENT BY ONE 
DECREMENT BY ONE 


DATA MOVEMENT 


Name 


MOVE ALPHANUMERIC 
MOVE SPACES 

MOVE NUMERIC 

MOVE ZEROS 
CONCATENATE 

EDIT 

EDIT WITH EXPLICIT MASK 


BRANCHING 


Name 


BRANCH ON OVERFLOW 

SET OVERFLOW 

BRANCH UNCONDITIONALLY 
PERFORM ENTER 

PERFORM EXIT 

ENTER 

EXIT 

GO TO DEPENDING 


ALTERED GO TO PARAGRAPH 
ALTER 


1108883 


Mnemonic 


INC 
ADD 
DEC 
SUB 
MULT 
DIV 
DIVS 
INCI 
DECI 


- Mnemonic 


MVA 
MVS 
MVN 
MVZ 
CAT 
EDIT 
EDTE 


Mnemonic 


BOFL 
SOFL 
BUN 
PERF 
PXIT 
NTR 
XIT 
GOTD 


GPAR 
ALTR 


Arguments 


OPND1, COP! 
OPND1, COP!, COP2 
OPND1, COP! 

OPND1!, OPND2, COPI 
OPND1, COP1, COP2 
OPND!, COP1, COP2 
OPNDI, COP1, COP2 


COPI 
COP1 
Arguments 
COP!1, OPND1 
COPI 
COP!, OPNDI 
COP! 


N, COP1, OPNDO,..., OPNDN 
OPND1!, COP1, DADDR 
OPND!1, COPI1, MASK 


Arguments 


V, BADDR 
Vv 

BADDR 

K, BADDR 
K 

BADDR 


COPI, L, DBADDRO...., 
DBADDRL 

DADDR 

DADDR, ACON 
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CONDITIONAL BRANCHING 


Name 


COMPARE ALPHANUMERIC 
COMPARE NUMERIC 
COMPARE FOR ZEROS 
COMPARE FOR SPACES 
COMPARE FOR CLASS 
COMPARE REPEAT 
COMPARE COLLATE 


MISCELLANEOUS 


Name 


COMMUNICATE 

LOAD COMMUNICATE REPLY 
CONVERT 

MAKE PRESENT 

FILE STATUS 
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Mnemonic 


CMPA 
CMPN 
CMPZ 
CMPS 
CMPC 
CMPR 
CPC 


Mnemonic 


COMM 
LDCR 
CONV 
MAKP 
FIST 


CHARACTER STRING HANDLING 


Name 


DESCRIPTOR SETUP 
INSPECT SETUP 


INSPECT 
STRING 


DELIMITER SETUP 
UNSTRING 


Mnemonic 
DSET 
ISET 


INSP 
STRI 


DLIM 
UNST 


INTERPROGRAM COMMUNICATION 
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Name 
IPC DICTIONARY 


Mnemonic 
IPCD 


Arguments 


OPNDI, OPND2, R. BADDR 
OPND!, OPND2, R. BADDR 
COP!, R. BADDR 

COP!, R, BADDR 

COPI, C, BADDR 

OPND1. COPI, R, BADDR 
OPNDI!. COP2, R. BADDR 


Arguments 


COP 

DADDR 

COPI, DADDR, N 
COP!,. DADDR 
RW. COPI 


Arguments 


DADDR, COP! 
Vi, V2, FLAC, DADDRI. COPI, 
COP2, DADDR2, OPND! 

V1, DADDR!I, DADDR2 

Z, OPND!, DADDR1, COP1!. 
OPND2, BADDR 

Vi, V2, DADDRI, COP 

F, M. Z, C, J, BADDR, 
DADDRI, COP!, DADDR2 ..... 


Arguments 
Vv. COPI, BADDRI 
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OPTIMIZED OPERATION CODES 


Eight operators have been optimized for improved performance: CPA, CPN, CPZ, INC, INCI, MNA, MNV., 
and MVZ. The optimized OP codes include the following data as a part of the OP code: 


1. The type of data item (8-bit or 4-bit). 
2. Signed or unsigned data. 
3. Information about the logical size of operands if the OP code has two operands. 


The following notation is used to describe the OP codes. 


Symbol Meaning 
8 8-bit or 4-bit data item. 
S Signed or unsigned data item. 
= TRUE if the LOGICALSIZES of two operands are equal. 
> TRUE if the LOGICALSIZE (OPNDI) is greater the 


LOGICALSIZE (OPND2). 


CPA 

OP code: @(1)011100@ CAT SS = 

The LOGICALSIZE of the second operand is greater than the LOGICALSIZE of the first operand. 
CPN 

OP code: @(1)0I10@ CAT 88SS = 


The LOGICALSIZE of the second operand is always greater than the LOGICALSIZE of the first oper- 
and. 


CPZ 

OP code: @(1)0111010@ CAT 8S 
INC 

OP code: @(1)001@ CAT 88SS CA G(IIIG 
INC1 


OP code: @(1) O111100@ CAT 8S 
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MVA 


OP code: @(1)001@ CAT 88SS => 


The first operand is the destination, and the second operand is the source. 


MVN 
OP code: @(1)010@ CAT 88SS=> 


The first operand is the destination, and the second operand is the source. 


MVZ 


OP code: @(I01I10I1@ CAT 8S 


ARITHMETIC OPERANDS AND INSTRUCTIONS 


In general. operands can have any of the following formats: 
1. Unsigned 4-bit. 
2. Unsigned 8-bit. 
3. Signed 4-bit (sign is MSD). 
4. Signed 8-bit (sign over MSD). 


Any restrictions concerning the types of operands permitted in an operation are specified under the description 
of the particular operation. 


All fields are addressed by pointing to the most significant bit of the most significant unit which, in the case 
of a signed field, is the sign. 


All fields are considered to be comprised of decimal integers. 
The absolute value is stored if the receiving field is unsigned. 
Unsigned fields are considered positive. 


When a signed format is specified for the receiving field of any arithmetic operation, the sign position is set 
to 1100 for a positive result and to 1101 for a negative result. 


4-bit operands are interpreted in units of 4 bits. When a signed operand is specified, the sign is interpreted 
as a separate and leading (leftmost) 4-bit unit which is not included in the statement of length. 


8-bit operands are interpreted in units of 8 bits. When a signed operand is specified, the sign is interpreted 
as being contained in the leftmost 4 bits of the leftmost 8-bit unit. 


The length of the operand field specifies the number of 4-bit units. 
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When 8-bit units are specified for the receiving field of an arithmetic operation, the leftmost 4 bits of each 
8-bit unit, except the unit carrying a sign, is set to 1111. 


The value of an 8-bit unit is carried in the rightmost 4 bits of the unit. Its value is as defined below for the 
4-bit unit. The leftmost 4 bits, except for a sign, are ignored. The value and sign interpretation of a 4-bit unit 
are as follows: 


4-bit 

Unit Value Sign 
0000 0 + 
0001 l + 
0010 2 + 
0011 3 + 
0100 4 + 
0101 5 + 
0110 6 + 
O11] 7 + 
1000 8 + 
1001 9 + 
1010 Undefined + 
1011 Undefined af 
1100 Undefined + 
1101 Undefined — 
1110 Undefined + 
1111 Undefined aa 


In addition and subtraction operations, results generated when the size of the result field is not sufficient to 
contain the result are not specified. When the result field is longer than the length of the result, leading zero 
units are stored. 


In three-address add, three-address subtract, and multiply operations, total or partial overlap of the first two 
operands is permitted. Results generated when the result field totally or partially overlaps either of the operand 
fields, are not specified. 


In two-address add and subtract, total overlap is permitted. Results generated when the result field partially 
overlaps the first operand field are not specified. Total overlap implies that the two fields are identical. 


No overlap of operands or result fields is permitted in divide operations. Results generated under any condition 
of overlap are not specified. 
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ADD THREE ADDRESS | app | 
OP: 08 
Format: 


ADD OPNDI, COPI, COP2 


Function: 


Algebraically add an addend denoted by OPNDI to an augend denoted by COPI and store the sum in the 
field denoted by COP2. OPNDI. COPI. and COP2 must be 4-bit items. 
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SUBTRACT THREE ADDRESS SUB 
OP: 10 
Format: 


SUB OPND1, OPND2, COPI1 
Function: 


Algebraically subtract a subtrahend denoted by OPNDI from a minuend denoted by OPND2 and store the 
difference in the field denoted by COPI. OPNDI. OPND2. and COP! must be 4-bit items. 
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ADD TWO ADDRESS | nc | 
Format: 


INC OPNDI1, COP1 


Function: 


Algebraically add an addend denoted by OPND! to an augend denoted by COP! and store the sum in the 
field denoted by COPI. 


INC is an optimized S-OP. OPNDI and COP! must have the same data unit type. OPNDI and COPI both 
must be either 4-bit data items or 8-bit data items. The format of the OP code is 0108855. For example, if 
both OPNDI and COP! are unsigned 8-bit items. then the OP code is OIOI10011! or 179. 


B 1000 Systems COBOL74 Reference Manual 
Appendix E 


COBOL74 S-LANGUAGE 


SUBTRACT TWO ADDRESS DEC DEC 


OP: 09 
DEC OPND1, COP! 


Function: 


Algebraically subtract a subtrahend denoted by OPNDI from a minuend denoted by COP! and store the differ- 
ence in the field denoted by COPI. OPNDI and COP! must be 4-bit items. 
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MULTIPLY : [ ment ] 


OP: 11 
Format: 

MULT OPND1, COP1, COP2 
Function: 


Algebraically multiply a multiplicand denoted by COP! by a multiplier denoted by OPND! and store the prod- 
uct in the field denoted by COP2. 


The result field length is the sum of the lengths of the two operands and must be denoted by COP2. OPNDI 
and COPI must be 4-bit items. 


The result field is always either a signed 4-bit format or an unsigned 4-bit format. 
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DIVIDE DIV 


OP: 12 
Format: 

DIV OPND1, COP1, COP2 
Function: 


Algebraically divide a dividend denoted by COPI by a divisor denoted by OPND! and store the quotient in 
the field denoted by COP2. Store the remainder in the field denoted by COPI. 


The result field length is the difference of the lengths of the two operands and must be denoted by COP2. 
Results are not specified if the length of the dividend is not greater than the length of the divisor. 


If the absolute value of the divisor is not greater than the absolute value of an equivalent number of leading 
digits of the dividend, the result is undefined. 


Division by zero results in a fatal error communicate to the MCP. 
OPNDI1, COP!, and COP2 must be 4-bit items. 
The sign of the remainder is that of the original dividend. 


The dividend field is always either signed 4-bit format or unsigned 4-bit format. 
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DIVIDE SPECIAL | pivs_| 


OP: 16 


Format: 
DIVS OPND1, COPX1, COPX2 
Function: 
This operation is performed in exactly the same manner as the standard divide (DIV) operator. except that 


when a divisor equal to zero is encountered, an overflow toggle is set and processing is allowed to continue. 
The overflow toggle can be manipulated by the SOFL and BOFL S-operators. 
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INCREMENT BY ONE | INCI | 
OP: 240-243 
Format: 
INCI] COP! 
Function: 


Algebraically add the positive integer | to an augend denoted by COP! and store the sum in the field specified 
by COP. 


INCL is an optimized S-OP and the OP code includes information regarding the data type of COP!. COPI 
may be a short COP: the format of the OP code is 01111008S. 


OP Code Type of Data 8S 


240 4-bit unsigned 00 
241 4-bit signed 01 
242 8-bit unsigned 10 
243 8-bit signed 1] 
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DECREMENT BY ONE | pect | 


OP: 14 
Format: 
DEC1 COPI 


Function: 


Algebraically subtract the positive integer | from a minuend denoted by COP! and store the difference in the 
field specified by COP!. COP! must be a 4-bit item. 
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DATA MOVEMENT OPERANDS AND INSTRUCTIONS 


In general, fields involved in data movement operations can have any of the following formats: 
1. Unsigned 4-bit. 
2. Unsigned 8-bit. 
3. Signed 4-bit (sign is MSD). 
4. Signed 8-bit (sign over MSD). 


Any restrictions as to the type of fields permitted in an operation are specified under the description of the 
particular operation. 


Refer to Arithmetic Operands and Instructions in this appendix for a description of the four types of fields. 


Totally or partially overlapped fields are not permitted, unless specified by the description of the individual 
instruction. 
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MOVE ALPHANUMERIC | mva | 


OP: 64-127 Format: 
MVA COP1, OPNDI 
Function: 


Move 8-bit or 4-bit units from the source field denoted by OPND1 to the 8-bit or 4-bit destination field denoted 
by COPI. 


If the destination field is signed, it receives either the sign of the source if the source is signed, or 1100 if 
the source is unsigned. 


If the data type of the source field is 4-bit and the data type of the destination field is 8-bit, each 4-bit unit 
is moved to the destination with 1111. 


If the data type of the source field is 8-bit and the data type of the destination is 4-bit. the rightmost 4 bits 
are moved. 


If the data type of the source field is the same as the data type of the destination field, each unit is moved 
unchanged to the destination. 


If the destination length is greater in size than the source length, the destination field is filled in on the right 
with trailing spaces (0100 0000) if the destination type is 8-bit; otherwise, it is filled in on the right with zeros 
(0000). 


If the destination length is lesser in size than the source length, the source data is truncated on the right. 
Overlapping operand fields are permitted if the data type of both fields is the same. It can be assumed that 
.the source is moved 24 bits (six digits or three characters) at a time into the destination field and that the 
move is from left to right. 

MVA is an optimized S-OP, and COP! and OPNDI may be short COP descriptors. The OP code contains 


information regarding the data types. The format of the OP code is 00188SS =>. For example, if both source 
and destination fields are signed 8-bit items of equal length, then the OP code is OOIIIII10, or 126. 
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MOVE SPACES MVS 
OP: 15 
Format: 
MVS COPI 
Function: 


Fill the destination field denoted by COPI with spaces (0100 0000). 


The data type of the destination field is ignored and is assumed to be unsigned 8-bit. 
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MOVE NUMERIC [Mwy ] 


OP: 128-191 
Format: 

MVN COP1, OPND1 
Function: 


Move 8-bit or 4-bit units from the source field denoted by OPNDI to the 8-bit or 4-bit destination field denoted 
by COPI. . 


If the destination field is signed. it receives either the sign of the source if the source is signed. or 1100 if 
the source is unsigned. 


If the destination field is unsigned. the sign of the source is ignored. 


If the data type of the destination field is 8-bit. the leftmost 4 bits of each 8-bit unit. except for the sign posi- 
tion, if signed. are set to I111 regardless of the data type of the source field. 


If the data type of the destination field is 4-bit. the leftmost 4 bits of each source 8-bit unit are ignored and 
only the rightmost 4 bits are moved: if the source field is a 4-bit field. each 4-bit unit is moved unchanged. 


If the destination length is greater in size than the source length. the destination field is filled in on the left 
with leading zeros of appropriate type (1111 0000). 


If the source length is greater in size than the destination length. the source data is truncated on the left. 
A sign is placed in the leftmost 4 bits of a field. whether 4-bit or 8-bit. 


Overlapping operand fields are permitted if the data tvpe of both fields is the same. It can be assumed that 
the source is moved 24 bits (six digits or three characters) at a time into the destination field and that the 
move is from left to right. 


MVN is an optimized S-OP. Consequently. COP! and OPNDI may be short COP descriptors. The OP code 
contains information regarding the data types. The format of the OP code is 01088SS =>. For example. if 
both source and destination fields are unsigned and the source field is 4-bit data and the destination field is 
8-bit data and the destination length is greater in size than the source length. then the OP code is 010100001, 
or 161. 
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MOVE ZEROS 


OP: 236-239 
Format: 
MVZ COPI1 
Function: 
Fill the destination field denoted by COPI with zeros of the appropriate type (III! 0000 or 0000 if 4-bit). 
If the destination field is signed, 1100 is placed into the sign position. 


MVZ is an optimized S-OP. COPI can be a short COP. The format of the OP code is 01110118S. 


Op code Data Type 8S 
236 4-bit unsigned 00 
237 4-bit signed 01 
238 8-bit unsigned 10 
239 8-bit signed 11 
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CONCATENATE [ CAT | 


OP: 32 
Format: 

CAT N, COPI1, OPNDO, .... OPNDN 
Function: 


Move each of the N+! fields denoted by OPND0O through OPNDN, in the order specified, into an output string 
starting at the field denoted by COPI. 


The number of source fields is specified by the 4-bit binary value N. The value N ranging from 0000 to III] 
is used to indicate | to 16 source fields. 


Each field is moved according to the rules specified for MOVE ALPHANUMERIC. 


If the destination length is greater in size than the combined source length, the destination field is filled on 
the right with trailing spaces (0100 0000). 


If the destination length is lesser in size than the combined source lengths, the source data is truncated on 
the right. 
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EDIT INSTRUCTIONS AND EDIT MICRO-OPERATORS 


No restrictions are placed on the data type of the source field of an edit operation. 
The data type of the destination field of an edit operation must be unsigned 8-bit. 


If the destination length is greater in size than the source length, the source data is assumed to have leading 
zero fill on the left. 


If the source length is greater in size than the destination length, the source data is truncated on the left. 


The operation is terminated by an edit micro-operator and not by exhaustion of either the source or destination 
fields. 


1108883 E-29 


B 1000 Systems COBOL774 Reference Manual 
Appendix E 


COBOL74 S-LANGUAGE 


EDIT ES 


OP: 17 
Format: 

EDIT OPND1, COPI, DADDR 
Function: 


Move data from the source field. denoted by OPNDI, to the destination field. denoted by COPI, under the 
control of the micro-operator string contained at the iocation denoted by the DADDR. 


The argument DADDR is an unsigned binary value which specifies the digit displacement of the micro-operator 
string relative to the data segment zero base. The container size of DADDR is DISPB. 
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EDIT WITH EXPLICIT MASK 
OP: 21 
Format: 


EDTE OPND1, COP1, MASK 


Function: 


Move data from the source field denoted by OPNDI to the destination field denoted by COP! under the con- 
trol of the micro-operator string immediately following COP1. The format of the explicit micro-operator string 
is the same as a literal. 
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EDIT MICRO-OPERATORS 


The edit micro-operators used in an edit instruction are: 


Operator Mnemonic Operation 
0000 R MVD Move digits 
0001 R MVC Move characters 
0010 R MVS Move suppress 

OO11 R FIL Fill suppress 

0100 N SRD Skip reverse destination 
0101 T INU Insert unconditionally 
O110 T INM insert On minus 
O11! T INS (Insert suppress 

1000 T INF insert float 

1001 T EFM End float mode 

1010 0000 ENZ End nonzero 

1010 0001 EOM End of mask 

1010 0010 SZS Start zero suppress 
1010 0011 CCP Complement check protect 
Others Undefined 


““R’? indicates a 4-bit binary value used as a repeat count. The value 0000 represents no repeat; do it once. 


““N” indicates a 4-bit binary value used to skip over a rumber of destination 8-bit units. The value 0000 repre- 
sents no skip. 


“T”’ indicates a 4-bit binary value which is: 
1. Used to index into a table of editing constants. 
2. Used to indicate a conditional selection between two table constants. 
3. Used to indicate an editing constant in line with the edit-operator string. 


The next edit-operator follows the constant. 


The following table indicates the normal table editing zonstants as well as the conditional and unconditional 
selection of constants associated with the value of T. 


EDITING CONSTANTS 


Table Entry Mnemonic Unconditional or 
T EBCDIC Conditional Constant 
0000 ep? PLU 
(00 1 — MIN 
0010 ase AST 
0011 5 DPT 
0100 es CMA 
0101 ip a CUR 
0110 ua 0 ZRO 
OL11 oe BLK 
1000 SPM Fither entry 0 or | 
1001 SBM Either entry 7 or 1 
1010 LIT In-line 8-bit constant 
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Associated with the edit instructions are three toggles denoted as S for sign, Z for zero suppress, and P for 
check protect. Initially, the Z and the P toggles are assumed to be set to the zero state and are set and reset 
as specified by the description of the individual micro-operators. The S toggle is set to 0 if the source field 
sign is positive, and to | if the source field sign is negative. Unsigned fields are considered positive. 


MOVE DIGIT 


Set Z to 1, to end the zero suppress state. Move an appropriate unit (4-bit digit or 8-bit character) from the 
source field to the destination field. If a 4-bit unit is moved, append the four bits (1111) to the left before 
storing in the destination. If an 8-bit unit is moved, the four bits (1111) are substituted for the leftmost four 
bits of the 8-bit unit. 


MOVE CHARACTER 


Set Z to 1, to end the zero suppress state. Move an appropriate unit (4-bit digit or 8-bit character) from the 
source field to the destination field. If a 4-bit unit is moved, append the four bits 1111 to the left before storing 
in the destination. If an 8-bit unit is moved, it is moved unchanged. 


MOVE SUPPRESS 


The micro-operator MOVE DIGIT is performed if the 4-bit unit, or the rightmost four bits of the 8-bit unit 
of the source field are not equal to 0000. 


If the appropriate four bits of the source field unit are equal to 0000 the suppress toggle Z is inspected. If 
Z equals 1, indicating nonsuppress mode, the micro-operator MOVE DIGIT is performed. If the suppress tog- 
gle Z equals 0, the check protect toggle P is inspected. If P = 0, indicating noncheck protect mode, move 
the table entry containing the 8-bit code for blank to the destination field. If P = 1, move the table entry 
containing the 8-bit code for asterisk to the destination field. 


SOURCE NOT = 0 #£4xMove digit 
Z=1 SOURCE = 0 # £4xMove digit 
Z=0 P=0 SOURCE = 0 Move table entry 7 (Blank) 
Z=0 P=1 SOURCE = 0 Move table entry 2 (Asterisk) 


FILL SUPPRESS 


If P = 0, indicating noncheck protect mode, move the table entry containing the 8-bit code for blank to the 
destination field. If P = 1, move the table entry containing the 8-bit code for asterisk to the destination field. 


P 
P 


I 


0 Move table entry 7 (Blank) 
1 Move table entry 2 (Asterisk) 


II 


SKIP REVERSE DESTINATION 


Adjust the address pointer of the destination field to skip backward (lower address) N 8-bit units. 
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INSERT UNCONDITIONALLY 


Move the table entry T as indicated below to the destination field. 


T=0...7 
S=0 T=8 
S=1 T=8 
S=0 T=9 
S=1 T=9 

T=10 


INSERT ON MINUS 


Move table entry T 

Move table entry 0 (Plus) 
Move table entry | (Minus) 
Move table entry 7 (Blank) 
Move table entry | (Minus) 
Move in-line table entry 


Move the table entry T as indicated below to the destination field. 


S=l T=0...7 
Es P=0 

* P= 

S=1 T=8 
S=1 T=9 
S=1 T=10 


Move table entry T 

Move table entry 7 (Blank) 
Move table entry 2 (Asterisk) 
Move table entry | (Minus) 
Move table entry ! (Minus) 
Move in-line table entry 


*: S = 0 or only source digits/characters equal to zero (minus zero) have been moved. 


INSERT SUPPRESS 


Move the table entry T as indicated below to the destination field. 


T=0...7 Move table 
Move table 
Move table 
Move table 
Move table 
Move table 
Move table 


to ll 
wy 

il 
_- cS 


il 
lI 


—-Oo0oe oe 


ll 
Wodl 
ol 


nNAnnn 
Il 
—-o-c 


NNNNNNNN 
He ft 
i ae 


| 
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entry T 

entry 7 (Blank) 
entry 2 (Asterisk) 
entry 0 (Plus) 
entry | (Minus) 
entry 7 (Blank) 
entry | (Minus) 


0 Move in-line table entry 
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INSERT FLOAT 


Move the table entry T and/or perform the micro-operator MOVE DIGIT as indicated below. 


Z=1 Move digit 

Z=0 SOURCE = P=0 Move table entry 7 (Blank) 

Z=0 SOURCE = P=! Move table entry 2 (Asterisk) 

Z=0 SOURCE NOT=0 T=0..7 Move table entry T, then move digit 

Z.=0 SOURCE NOT=0 T=8 S=0 Move table entry 0 (Plus) then move digit 
7.=0 SOURCE NOT=0 T=8 S=]1 Move table entry | (Minus) then move digit 
Z=0 SOURCE NOT=0 T=9 S=0 Move table entry 7 (Blank) then move digit 
“=0 SOURCE NOT=0 T=9 S=1 Move table entry | (Minus) then move digit 
Z=0 SOURCE NOT=0 T=10 Move in-line table entry, then move digit 


END FLOAT MODE 


Move the table entry T as indicated below to the destination field. 


I 


T=0...7. Move table entry T 

T=8 Move table entry 0 (Plus) 
T=8 Move table entry | (Minus) 
T=9 

T=9 


lI 
il 


Move table entry 7 (Blank) 
Move table entry | (Minus) 

T=10 Move in-line table entry 
No Operation 


0 
l 
0 
| 


i it 
NnNNN 
lll 


NNNNNNN 
I 
—-coocosd 


END NON-ZERO 


Terminate the micro-operator operations if any nonzero source character/digit has been moved; otherwise. con- 
tinue with the next in-line operator. 


END OF MASK 


Terminate the micro-operator operations. 


START ZERO SUPPRESS 


Set Z to the zero state. 


COMPLEMENT CHECK PROTECT 


Complement the state of P. 
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BRANCHING OPERANDS AND INSTRUCTIONS 


A branch address argument BADDR has the following format: 


Displacement BTYPE Segment Number 
(21 bits) (1) (7) 


Present if BTYPE = | 


0: Relative to the current code 
segment base (intrasegment branch) 

1: Relative to a new code segment base 
(intersegment branch) 


Displacement is an unsigned binary value which specifies the bit displacement of an instruction relative to a 
segment base. The container size of the displacement and BTYPE combined is a program parameter. 


E-36 


B 1000 Systems COBOL74 Reference Manual 


Appendix E 
COBOL74 S-LANGUAGE 
BRANCH UNCONDITIONALLY BUN 
OP: 03 
Format: 
BUN BADDR 
Function: 


Obtain the next instruction from the location specified by BADDR. 
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BRANCH ON OVERFLOW | Bort | 


OP: 23 
Format: 
BOFL V, BADDR 


Function: 


If the overflow toggle equals V. a transfer to the address (BADDR) given in the instruction occurs; otherwise, 
control is passed to the next sequential instruction. 


The overflow toggle is unchanged. The length of V is one bit. 
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SET OVERFLOW TOGGLE 


OP: 07 
Format: 
SOFL V 
Function: 
Set the overflow toggle to V. 


The length of V is one bit. 


NOTE 
The overflow toggle is set to 1 if a DIVIDE BY ZERO is encountered in the DI- 
VIDE SPECIAL S-operator. 


1108883 E-39 


B 1000 Systems COBOL.74 Reference Manual 
Appencix E 


COBOL74 S-LANGUAGE 


PERFORM ENTER | reRr | 


OP: 06 
Format: 

PERF K, BADDR 
Function: 


Create a stack entry with the following format: 


Displacement Segment No. K 


(24) (7) (12) 


Insert a displacement value, relative to the active code segment base and pointing to the next sequential S- 
instruction, into the stack. 


Insert the current code segment number into the stack. Insert the value of K from the instruction into the 
stack. 


Adjust the stack pointer to point to the next possible entry. 


Obtain the next instruction from the location specified by BADDR. 
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PERFORM EXIT | 
OP: 34 
Format: 
PXIT K 
Function: 


Compare the K contained in the instruction to the K in the current stack entry and, if unequal, proceed to 
the next in-line S-instruction. If equal, adjust the stack pointer to point to the previous entry and obtain the 
next S-instruction from the information contained in the removed stack entry. 
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ENTER | NTR | 


OP: 18 
Format: 

NTR BADDR 
Function: 


Same function as PERF. K is assumed to be equal to zero. 
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EXIT XIT 
OP: 19 
Format: 
XIT 
Function: 


Same function as PXIT. K is assumed to be equal to zero. 
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GO TO DEPENDING | com | 


OP: 39 


Format: 
GOTD COPI1, L, DBADDRO, ..., DBADDRL 
Function: 


Compare the 10-bit binary value L with the variable specified by COP!. The variable is first converted to a 
binary value. Modulo 2 to the 24th power. 


If the binary value of the variable is less than zero or greater than L,. the next instruction is obtained from 
the location specified by DBADDRO. The variable can be signed. 


If the binary value of the variable is in the range zerce through L, it is used as an index to select from the 
list of DBADDRs the appropriate DBADDR to be used to obtain the next instruction. 


DBADDR and BADDR have the same format with the exception that DBADDR always contains the segment 
number. Although segment number is unnecessary for those DBADDRs with BTYPE equal to zero, in order 
to index into the list of DBADDRs, all of the DBADDRs must be of equal length. The container size of 
DBADDR is BDISPBI + 7. 
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ALTERED GO TO PARAGRAPH 


OP: 35 
Format: 
GPAR DADDR 
Function: 
Obtain the next instruction from the location specified by the address ACON. 
The address constant ACON has the same format as a BADDR. 


The argument DADDR is an unsigned binary value which specifies the digit displacement of the ACON relative 
to the data segment zero base. 


The container size of DADDR is DISPB. 
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ALTER | auTe | 


OP: 36 
Format: 
ALTR DADDR, ACON 
Function: 
Copy the address constant ACON into the data area specified by the argument DADDR. 
The address constant ACON has the same format as a BADDR. 


The argument DADDR is an unsigned binary value which specifies the digit displacement of the ACON relative 
to the data segment zero base. 


The container size of DADDR is DISPB. 
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CONDITIONAL BRANCH OPERANDS AND INSTRUCTIONS 


If the condition A (R) B is TRUE a transfer to the address (BADDR) given in the instruction occurs; other- 
wise, control is passed to the next sequential instruction. The relation (R) is defined as follows: 


R Meaning 
000 Undefined 


00! GTR 
010 LSS 
Ol! NEQ 
100 = EQL 
101 GEQ 
110 LEQ 
111 Undefined 


Overlap of fields is permitted. ‘‘A’’ is the first operand denoted in the instruction. If an instruction has only 
one operand, then the assumed field is the A field. 
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COMPARE ALPHANUMERIC | comps | 


OP: 224-23] 
Format: 
CMPA OPND1, OPND2, R, BADDR 
Function: 
Compare the two operand fields according to binary values. 


The comparison is performed left to right with any shorter operand assumed to be right-filled with blank char- 
acters (0100 0000 if EBCDIC or 0010 0000 if ASCII). 


The fields are considered equal when the equal size pertions are equal and the longer field (if one is longer) 
has trailing blanks. 


An 8-bit data format is assumed for both fields with no checking to verify otherwise. Signed fields have the 
most significant four bits (the sign) modified to the appropriate numeric zone (1111 for EBCDIC, 0011 for 
ASCII) before being compared. This modification is not permanent and is done so that the sign does not affect 
the result of an alphanumeric comparison. 


CMPA is an optimized S-OP. Consequently, OPND!I and OPND2 may be short COPs. The LOGICALSIZE 


of OPND2 is always greater than or equal to the LOGICALSIZE of OPNDI. The format of the OP code is 
011100SS =. 
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COMPARE NUMERIC 


OP: 192-223 
Format: 

CMPN OPND1, OPND2, R, BADDR 
Function: 


Compare the two operand fields according to the algebraic values, considering the two fields to be comprised 
of decimal integers. 


When the field sizes are different, the longer field is tested for leading zeros (0000). There is no restriction 
as to data type. In comparing an 8-bit character, only the rightmost four bits of the character are considered; 
the other bits are ignored. 

Two fields of all zeros are equal regardless of sign. 

Unsigned fields are considered positive. Sign conventions are the same as for arithmetic operands. 


Results generated by invalid digit values are undefined. 


CMPN is an optimized S-OP. OPND! and OPND2 can be short COPS. The LOGICALSIZE of OPNDI1 is 
always less than the LOGICALSIZE of OPND2. The format of the OP code is O11088SS =. 
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COMPARE FOR ZEROS EX 


OP: 232-235 
Format: 

CMPZ COP1, R, BADDR 
Function: 


Compare two operand fields according to algebraic values. assuming the first field to be comprised of all zeros 
(0000). 


There is no restriction as to data type. In comparing an 8-bit character only the rightmost four bits of the 
character are considered. The other bits are ignored. 


Two fields of all zeros are equal regardless of sign. 
Unsigned fields are considered positive. Sign conventions are the same as for arithmetic operands. 
Results génerated by invalid digit values are undefined. 


CMPZ is an optimized S-OP. COPI can be a short COP. The format of the OP code is 01110108S. 


OP code Data Type 8S 
232 4-bit unsigned 00 
233 4-bit signed 01 
234 8-bit unsigned 10 
235 8-bit signed 1] 
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COMPARE FOR SPACES CMPS 
OP: 37 
Format: 


CMPS COP1, R, BADDR 


Function: 


Compare two operand fields according to binary values, assuming the first field to be comprised of all spaces 
(0100 0000). 


The comparison is performed left to right. 
Unsigned 8-bit format is assumed with no checking to verify otherwise. 


This operator is not sensitive to collate table address and is valid only for the native collating sequence. 
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COMPARE FOR CLASS | cmc | 


OP: 38 
Format: 
CMPC COP1, C, BADDR 
Function: Compare the operand field and determine whether the field jis: 
C=00 Completely alphabetic 
01 Completely numeric 


10 Not completely alphabetic 
1! Not completely numeric 


If the condition being tested is TRUE. a transfer to the address BADDR given in the instruction occurs; other- 
wise, control is passed to the next sequential instruction. 


In the alphabetic test, each character is range-checked for 1100 0001 through 1100 1001, 1101 0001 through 


1101 1001, 1110 0010 through 1110 1001, and for 0100 0000. Unsigned 8-bit format is assumed with no checking 
to verify otherwise. 


In the numeric test each character is range-checked for 1111 0000 through 1111 1001. Signed or unsigned 8-bit 
format is permitted. The four bits in the sign position of a signed 8-bit field are ignored. The sign position 
is the leftmost 4 bits of the most significant character. 
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COMPARE REPEAT 


OP: 45 
Format: 
CMPR OPND1, COP1, R, BADDR 
Function: 
Compare the two operand fields according to binary value. 
If the COLLATE TABLE ADDRESS is nonzero, each character in the operands must be translated before 


comparison. This is accomplished by using each 8-bit character from OPNDI and COP1, multiplied by eight, 


as an index into the translation table located at the address given by the COLLATE TABLE ADDRESS to 
obtain the character to be compared. 


Comparison proceeds from left to right. 
The field lengths are considered equal by repeating OPND1. 
Both fields are assumed to have unsigned 8-bit data type. 


The size of COP! must be evenly divisible by the size of OPND1; otherwise, the results of the compare may 
be erroneous. 
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COMPARE COLLATE | pe | 


OP: 04 
Format: 

CPC OPND1, COPI, R, BADDR 
Function: 


If the COLLATE TABLE ADDRESS is nonzero. this program is using a non-native collating sequence and 
the operands must be translated into the program collating sequence before comparison. This is accomplished 
by using each 8-bit character from OPND/ and COPI. multiplied by eight. as an index into the translation 
table located at the address given by the COLLATE TABLE ADDRESS to obtain the character to be com- 
pared. 


The comparison is performed left to right with any shorter operand assumed to be right-filled with blank char- 
acters. The blanks are translated if this program is using a nonnative collating sequence. 


The fields are considered equal when the equal size pertions are equal and the longer field (if one is longer) 
has trailing blanks. 


An 8-bit data format is assumed for both fields with no checking to verify otherwise. Signed fields have the 


most significant four bits (the sign) modified to 1111 before any necessary translation is done. This modification 
is not permanent and is done so that the sign will not affect the result of an alphanumeric comparison. 
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MISCELLANEOUS INSTRUCTION 


COMMUNICATE 


OP: 33 
Format: 

COMM COP! 
Pinetion: 


Move the length and address fields from the COP! entry to the RS. COMMUNICATE.MSG.PTR field located 
in the program RS.NUCLEUS. converting them enroute. The origin field is unchanged. 


The length is converted from a digit or character length to a bit length. The address is stored as an absolute 
bit address. 
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LOAD COMMUNICATE REPLY 


OP: 41 


Format: 


LDCR DADDR 


Function: 


The LDCR reply does the mapping of RS.RMSG.F2 
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RS.RMSG.P2 Value 


0 Good Complete 

1 AT END 

2 I/O Error 

3 Incomplete I/O 

4 Duplicate Record OK 


LAST LOGICAL 1/0 STATUS 


LDCR | 


and the last logical I/O status values as follows: 


Value Stored at DADDR 
0 


l 
2 
3 
0 


Value Stored at DADDR 


Bit 0 Exception Descriptor Follows 


Value of 0 

Value of | 
Boundary Violation 
Duplicate Key 
Sequence Error 


Invalid Key 
Reserved 
Parity Error 
Reserved 
AT END / EOP 
10 Short Block 
12 Reserved 
13. Break On Output 
14 Reserved 
1S Timeout 
16-23 Reserved 


woernnFWN- 


2 


Examine following bits 


I 
l 
I 
Variable Length Record Error 2 
l 
ps 


Not requested 
Z 


mf Nl nl 
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CONVERT 


OP: 40 
Format: 

CONV COPI DADDR N 
Function: 
Convert the operand denoted by COP! from a decimal value to an unsigned 24-bit binary value, truncating 
or zero-filling on the left if necessary. Place the result at the location specified by DADDR. N represent the 
number of bits of converted value to store at DADDR. 


The operand must be either unsigned 4-bit or unsigned 8-bit units. 


Refer to MAKE PRESENT for definition of DADDR. 
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MAKE PRESENT | MaKe | 


OP: 42 
Format: 

MAKP COPI1, DADDR 
Function: 


Load the data segment specified by COPI and place the base relative address of the data area specified by 
COP! into the 24-bit location specified by DADDR. 


DADDR is an unsigned binary value which specifies a digit displacement from the data segment zero base. 


The container size of DADDR is DISPB. 
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FILE STATUS 


OP: 57 
Format: 
FSTA, WRIT, COP 


Function: 
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FSTA 


COP contains the translated value of the status of the last IO.WRIT which indicates whether the last I/O was 


a READ or a WRITE. 


The translation from COMMUNICATE REPLY (RE.RMSG.P2) or the last logical I/O status values to File 
Status Codes will be according to the following table: 


Communicate Reply 


(Values returned by MCP) 


0 Good Complete 


2 
3 
4 


ee) 
=: 
Oo 


WOMmAnA ANN BRWN 


AT END / EOP 


1/O Error 
Incomplete I/O 
Duplicate Record OK 


Last Logical VO Status 

Exception Description Follows 
value of 0 
value of | 

Boundary Violation 

Duplicate Key 

Sequence Error 

Variable Length Record Error 

Invalid Key 

Reserved 

Parity Error 

Reserved 

At END/EOP 

Start Block 

Reserved 

Reserved 

Break On Output 

Reserved 

Timeout 

Reserved 


File Status Codes 


00 

10 (READ) 

34 (WRITE) 
Examine I/O status 


02 
File Status Codes 


99 
Examine following bits 
24 
2 


Not requested 
91 


97 


96 


For any Communicate Reply or last logical I-O status value that does not have a File Status code, the condi- 
tion is masked out with the result mask specified by the communicate. An EOP will result in a 34 instead 
of the expected (and correct) 00. 
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CHARACTER STRING S-OPS. 
DESCRIPTOR SETUP | pser | 


OP: 50 
Format: 
DSET DADDR, COP 
Function: 
Build a descriptor of COP! at the location specified by DADDR. 


The format of a descriptor (DESC) is that of a COP entry after the OCCURS DEPENDING value has been 
applied and after subscripts or indices have been evaluated to derive an ultimate displacement. 


The current B 1000 format for a descriptor is as follows: 


DESC (64) 

DATA- MULTIPLE- SIGNED SHARED- LITERAL- 

TYPE ENTRY- DATA- FLAG 
FLAG FLAG 

(4) (1) (1) (1) (1) 

LENGTH- SEGNO- DISPLACEMENT FILLER 

IN- OR-IPCD- IN DIGITS 

DIGITS INDEX 


(14) (10) (20) (12) 


The MULTIPLE.ENTRY.FLAG and LITERAL.FLAG are equal to zero in the above format. 
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INSPECT SETUP | 


OP: 51 
Format: 
ISET V1, V2, FLAC, DADDR1, COP1, COP2, DADDR2, OPND 
Function: 
Build an INSPECT.TABLE entry at DADDRI. 


V1 specifies whether this is the last entry (VI=1) or not. V2 indicates whether BEFORE, V2=1, or AFTER, 
V2=2 or both, V2=3, were specified. FLAC indicates the mode of INSPECTION. 


FLAC = 0 indicates FIRST 

FLAC = | indicates LEADING 
FLAC = 2 indicates ALL 

FLAC = 3 indicates CHARACTERS 


DADDRI indicates the location for this INSPECT TABLE entry. COPI indicates the number of characters 
to be tallied or replaced when FLAC is not equal to 3. 


COP2 is the count field for tallying or the replacement string. DADDR2 is the location of the source field 
description if BEFORE/AFTER is specified. 


OPND is the delimiter if BEFORE/AFTER is specified. 
Set INELIGIBLE.FLAG=0. 


If V2=0, set AFTER.FLAG =0 and examine the source field for the delimiter specified by OPNDI. If a match 
is found, set ELIGIBLE.POSITION to the character position of the beginning of the first occurrence of the 
delimiter. If a match is not found, set ELIGIBLE.POSITION=0 and AFTER.FLAG=1. This, in effect, makes 
the entry eligible for all characters of the source field. 


If V2=1, set AFTER.FLAG=1 and examine the source field for the delimiter specified by OPNDI. If a match 
is found, set ELIGIBLE.POSITION to the character position to the right of the first occurrence of the delimit- 
er. If a match is not found, set INELIGIBLE.FLAG=1. 


If V2=3, set ELIGIBLE.POSITION=0 and AFTER.FLAG=!1. This, in effect, makes the entry eligible for all 
characters of the source field. 
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The description of the INSPECT TABLE is as follows: 


INSPECT.POINTER is the first 24 bits of the Inspect Table which is used to save a pointer into the source 


string in case inspection is interrupted. This field is followed by a variable number of entries with the following 
format: 


INSPECT.TABLE.ENTRY (148) 


ee ii a a ee 


LAST- INELIGIBLE- AFTER- ELIGIBLE- FLAC DESC] DESC2 FILLER 


ENTRY- FLAG FLAG POSITION 
FLAG 
(1) (1) (1) (13) (2) (64) (64) (2) 


Unused 


Count field or 
replacement 
string 


Characters to be 
tallied or replace 
(not meaningful if 
FLAC=3) 


O=FIRST 
1=LEADING 
2=ALL 
3=CHARACTERS 


— Position at which DESC] becomes 
eligible for comparison in 
conjunction with the AFTER.FLAG 


O=BEFORE 
1=AFTER 


0O=ELIGIBLE 
1=INELIGIBLE 


-— 0O=More entries 
1=Last entry 
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INSPECT | insp | 


OP: 52 


Format: 


INSP V, DADDR1, DADDR2 


Function: 


Inspect the source field specified at DADDR2, tallying or replacing a variable number of 8-BIT character(s). 
The location of the character(s) to be tallied or replaced and the location of count field or replacement string 
is specified in the Inspect Table specified by DADDRI. 


Eligibility of an entry is established as follows: 


I. 
2. 


3. 


If INELIGIBLE.FLAG=1, this entry is ineligible. 

If AFTER.FLAG=0 and the current character position is not less than ELIGIBLE.POSITION, this 
entry is no longer eligible and it is made ineligible: otherwise. the entry is eligible. 

If AFTER.FLAG=1 and the current character position is less than ELIGIBLE.POSITION. this entry 
is ineligible; otherwise the entry is eligible. 


. When looking for a match and the number of characters left in the source is less than the size of 


the data item specified by DESCI. this entry is made ineligible. 
NOTE 
An entry is made ineligible by setting INELIGIBLE.FLAG=1. 


The comparison operation to determine the occurrences of the operands to be tallied or replaced occurs as 


follows: 


l. 


Z 


The entries in the INSPECT.TABLE are considered in the order in which they are specified. 


. If the entry is eligible. DESCI is compared against an equal number of contiguous characters, starting 


with the leftmost character of the source field. 


. If no match occurs or if the entry is ineligible. the comparison is repeated for each successive entry. 


if any. until either a match is found or there is no next successive entry. When there is no successive 
entry. the character position immediately to the right of the leftmost character position considered in 
the last comparison cycle is considered as the leftmost character position, and the comparison cycle 
begins with the first table entry. 


. Whenever a match occurs, tallying or replacing takes place. The character position immediately to 


the right of the rightmost character position that participated in the match is now considered to be 
the leftmost character position of the source field and the comparison cycle starts again with the first 
table entry. 


. The comparison operation continues until there are no eligible entries in the table or until the right- 


most character position of the source field has participated in a match or has been considered as the 
leftmost character position. When this occurs, the inspection is terminated. 


NOTE 
It is intended that this process be interruptable at the beginning of the cycle. INS- 
PECT.POINTER is the first 24 bits of the Inspect Table. and is used to save and 
restore the pointer into the source field in case an interrupt occurs. 
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A detailed description of the inspection cycle is as follows: 

1. Set current position P=INSPECT.POINTER. 

2. Point to the first entry in the Inspect Table. 

3. If the entry is ineligible. go to step S. 

4. Do the following according to the contents of FLAC: 

a. If FIRST is specified. look for a match. 

If a match is not found. go to step §S. 
If a match is found. make the entry ineligible. tally or replace and go to step 7. 


b. If LEADING is specified. make the entry ineligible. 


If (AFTER.FLAG = 0 AND P NOT = 1) OR (AFTER.FLAG = | AND P NOT = ELIGIBLE.P- 
OSITION). go to step 5. 


Look for a match. 
If a match is not found, go to step S. 
If a match is found. tally or replace contiguous occurrences of DESC! and go to step 7. 
c. If ALL ts specified, look for a match. 
If a match is not found, go to step S. 
If a match is found, tally or replace and go to step 7. 
d. If CHARACTERS is specified, tally or replace and go to step 6. 
5. Get the next table entry. If there is a next entry. go to step 3. 


If INELIGIBLE.FLAG=! for all the table entries. terminate the process. 


6. Increment P by |. 
7. If P > size of the source string, terminate the process; otherwise, go to step 2. 
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STRING 


OP: 53 
Format: 

STRI Z, OPND1, DADDR1, COP1, OPND2, BADDR 
Function: 


Move a variable number of 8-bit characters from the source field denoted by OPNDI to the destination field 
specified at DADDRI using the value specified in COP! as a character offset into the destination field. Z indi- 
cates how OPND2 is to be used: 


Q=OPND2 is the number of characters to move 
1=OPND2 is the delimiting character(s) 
2=OPND2 is omitted — the number of characters to move is the size of OPND! 


BADDR specifies the next statement if overflow occurs. 


An overflow condition is caused if at anytime during execution the value in the pointer field is less than | 
or greater than the size of the destination string. 


If an overflow condition exists, the operation is terminated and the next instruction address is obtained from 
BADDR. 


The transfer of data is governed by the following rules: 


1. Characters are moved from the source field to the destination field in accordance with the rules for 
MOVE ALPHANUMERIC (MVA), except that no space fill is provided. The contents of COP! are 
incremented by | for each character transferred. 

2. If V=0. characters are transferred until the end of the source field is reached, or until the number 
of characters specified by OPND2 are transferred. 


If V=1, characters are transferred until the end of the source field is reached, or until the delimiting 
character(s) specified by OPND2 are encountered. The delimiting character(s) specified are not trans- 
ferred. 
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DELIMITER SETUP | pum | 


OP: 54 


Format: 
DLIM V1, V2, DADDRI1, COPI1 


Function 


Build a delimiter table entry at the location specified by DADDRI. V1=1 specifies that this is the last entry. 
V2=I indicates that ALL was specified. COPI is the dellmiter. 


The table used by the Unstring S-operator contains a variable number of entries with the following format: 


DELIMITER .TABLE.ENTRY (68) 


LAST-ENTRY-FLAG ALL-FLAG DESC! FILLER 
(1) (1) (64) (2) 


Unused 


Delimiter descriptor 


— 0=More entries 
]=Last entry 


0=Single occurrence of delimiter 
1=All occurrences of delimiter treated as one 


When Z=!. DADDR3 specifies the location of the Delimiter Table and the following comparison cycle occurs: 


1. The entries in the Delimiter Table are processed in the order specified. 

2. The delimiter is compared against an equal number of characters of the source field, starting with the 
leftmost character. 

3. If no match occurs. the comparison is repeated for any successive entry until a match is found or 
until there is no next successive entry. When there is no successive entry. the character position to 
the immediate right of the leftmost character position considered in the last comparison cycle is con- 
sidered as the leftmost character position. and the comparison cycle begins with the first table entry. 

4. Whenever a match occurs. examination stops and the comparison cycle is discontinued. 

5. The comparison operation continues until there are no more entries in the table or until the rightmost 
character position of the source field has participated in a match or has been considered as the left- 
most character position. When this occurs. examination is terminated. 
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UNSTRING | UNST | 
OP: 55 
Format: 


UNST F, M, Z, C, J, BADDR, DADDRI, COP1, 
DADDR2, OPND1, DADDR3, COP2, COP3, DADDR4 


Function: 


Move a variable number of 8-bit characters from the source field specified at DADDRI to the destination field 
denoted by COPI using the value specified at DADDR2 as a character offset into the source field. 


Any of the following situations cause an overflow condition: 


1. F=2 or F=3 and the value in the pointer field is less than | or greater than the size of the source 
string. 


2. Z=0 and the value in OPNDI is less than | or greater than the size of the source string. 
3. Upon completion of the operation. F=1 or F=3 and either of the following occurs: 


a. The source field contains characters that have not been examined. 


b. Z=0 and the number of characters transferred is less than the number of characters specified by 
OPNDI. 


If an overflow condition exists. the operation is terminated and the next instruction address is obtained from 
BADDR. 


The transfer of data is governed by the following rules: 
1. The string of source characters is examined beginning with the relative character position in the point- 


er field. 


2. The number of characters examined is determined as follows: 


a. If Z=1, the examination proceeds from left to right until either a delimiter in the Delimiter Table 
specified by DADDR3 is encountered or until the end of the string is encountered. 


If the end of the string is encountered before the delimiting condition is met. examination termi- 
nates with the last character to be examined. 


If two contiguous delimiters are encountered. the number of characters examined is zero. 
b. If Z=2, the number of characters is the size specified by COPI. 
3. The characters, thus examined. are moved to the destination field as follows: 


a. If C=0, the characters are moved in accordance with the rules of the MOVE NUMERIC (MVN) 
S-operator. 
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E-68 


6. 


If the number of characters to be moved is zero, the destination field is zero-filled. 


b. If C=1. the characters are moved according to the rules of the MOVE ALPHANUMERIC (MVA) 
S-operator. 


If J=1, the characters are moved right-justified. 


If the number of characters to be moved is zero, the destination field is space-filled. 


. If the delimiter receiving field is present. the delimiting character(s) are moved to it according to the 


rules of the MOVE ALPHANUMERIC (MVA) S-operator. If the delimiting condition is the end of 
the string, then it is space-filled. 


. If the count field is present, the number of characters examined is moved to it according to the rules 


of the MOVE NUMERIC (MVN) S-operator. 


If the tallying field is present, | is added to the contents according to the rules of the Increment By 
One (INC1) S-operator. 


. If Z=0, Z=2 or the delimiting condition is the end of the string, the pointer field is set to point to 


the character to the right of the last character transferred in step 3. 


If Z=1, the pointer field is set as follows: 


a. If the ALL.FLAG=0 for the matched delimiter, it points to the character to the right of the delim- 
iter. 


b. If the ALL.FLAG=! for the matched delimiter, the string is examined for contiguous occurrences 
of the delimiter and it points to the right of the last such occurrence. 
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INTER-PROGRAM COMMUNICATION 


IPC. DICTIONARY 


Format: 
IPCD V COP BADDR 


Functions: 


The execution of the IPCD S-OP results in the construction and insertion of an 80-bit system descriptor for 
the COP in the IPC.DICTIONARY at the displacement address specified by V. The base address of the 

IPC.DICTIONARY is adjacent to program RSN and can be found in RS.IPC.DICTIONARY.SPACE as an 
absolute address. The BADDR contains the address of the first IPCD S-op which references an operand that 
lies in an overlayable data segment. This address is required by the interpreter when checkerboarding has oc- 


curred and a necessary data segment does not fit into dynamic memory without overlaying another required 
data segment. 


The Inter-Program Communication (IPC) Module provides a facility to transfer control from one program to 
another and the ability for both programs to have access to the same data items. Language is not a barrier 
in IPC. The names of the programs to which control is to be passed may or may not be known at compile 
time. Additionally, this module provides the ability to determine the availability of memory for the program 
to which control is being passed. 


The definition of a ’run unit’ is critical to the implementation of the CALL/CANCEL mechanism described 
in the ANSI Standard. The beginning-of-job (BOJ) of any program by an execute instruction does not establish 
a run unit. A run unit is established only when an executed program initiates another program through the 
CALL communicate. That called program is now a member of the run unit associated with that program that 
was originally executed. Likewise, any program called by a program within the run unit becomes part of that 
run unit and remains in that run unit until terminated or cancelled (CANCEL). A job cannot be a member 


of more than one run unit. The following figure represents seven programs (A through G) which have been 
called: within a run unit. 


A A was executed 


| =— Current Path 
B 


Previous —» — * 
Path D Cc 


F G E 
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The connecting links are generated by and represent the last used path. and the link exists until a return (EXIT 
PROGRAM) is accomplished. Once a called program has been exited (D. F. G). it remains suspended in the 
current state. The only path that is of interest is the path last traversed. 


The current path is important in order to check the validity of a CALL or CANCEL statement; a program 
may not call or cancel itself or any of its predecessors. The other links are unimportant. as any program in 
the run unit can call or delete other existing programs (with the exceptions previously mentioned) or can call 
new programs. 


If. for example. program E cancels program D. then the run unit consists of all of the following programs 
and appears as: 


Unattached 
Programs 
F,G 


A 
| 
B 
| 
C 
| 
E 


A call to any of these programs results in a transfer of control to the existing state. whereas a call to any 
other program (including D) causes an initial state copy to be invoked before control is transferred. The termi- 
nation (by STOP RUN or ABORT) of any program in a run unit results in the removal of all programs in 
that run unit from memory. 


The calling program may specify one or more data items to which the called program has access. The shared 
data may be any 01 or 77 level item (including items whose addresses have been received through a CALL) 
described in the calling program. The data items may be named and defined differently in each program. Addi- 
tionally. storage for the shared data is never allocated in the called program; the address is always passed 
to the called program. 


The IPC.DICTIONARY is a list of SYSTEM.DESCRIPTORS built by the program to describe the parameters 
to be passed with a CALL. This dictionary is within the space defined by RS.IPC.DICT in the RS.NUCLEUS 
of the calling program. The length of this dictionarv is passed in the CALL communicate. The MMCP verifies 
that the number and length of parameters passed match the IPC.PARAMETER.LIST of the CALLed program. 


The: [PC.PARAMETER.LIST is a series of 24-bit fields that contain the length in bits of the parameters re- 
quired for a given program. The original copy is generated by the compiler and resides at the end of the code 
tile. The MCP can locate this list through a 24-bit field in the Program Parameter Block (the PROG.IPC.PTR 
contains the relative disk address in the code file of the IPC.PARAMETER.LIST). The number of entries tn 
the list is obtained from a 16-bit field in the PPB (PROG.IPC.SIZE). After the program has been successfully 
called. the IPC.PARAMETER.LIST is appended to the RS.NUCLEUS (and the first element contains the 
number of entries) in order to facilitate future cails on this program. 


After the MCP verifies that the number and length of parameters are correct. it updates this field to allow 
access to the shared data. The interpreter uses this field just as it would use the address of a data dictionary. 
that is. to obtain the absolute address of the IPC.DICTIONARY. 
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Figure E-2 illustrates the manner in which data is linked between the calling program and the called program. 


CALLING PROGRAM WITH SHARED CALLED PROGRAM 


AND SEGMENTED DATA 
STATIC MEMORY 


RS .IPC. DICT 
RS .IPC,.PARM. LIST 
IPC .PARAM, LIST 


BR BR 


STATIC MEMORY 


DYNAMIC MEMORY 


RS .IPC.DICT .SPACE 
DATA DICTIONARY 


IPC DICTIONARY 


G12343 


Figure E-2. Memory Layout 


Accessing shared data should be almost identical to accessing segmented data. One difference is that the read- 
ing and writing take place outside the program base-to-limit area and. therefore. the base-limit check must be 
inhibited. This implies that any COP for a parameter must have a flag (SHARED.DATA.FLAG) which sup- 
presses the base-limit test and indicates that there is a following 10-bit field (IPCD.INDEX) which supplies 
an index into the IPC.DICTIONARY. With the absolute address obtained from the IPC.DICTIONARY. the 
interpreter can proceed as if it has an absolute address for a normal data item. 
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EXAMPLE OF QUEUE AND REMOTE FILES 


The following example illustrates the use of a queue file, a remote file, and the WAIT statement. To execute 
this program, file equate or modify the file RMTE with the SIMPLE.HEADERS and NUMBER.OF.STATIONS 
(NST) file attributes. After receiving the first message from a station, the station becomes attached to the pro- 
gram. Enter any ODT console command and the answer is displayed on the terminal. The terminal acts like a 
remote ODT. A blank message sends the program to end of job. 


The program has a trace capability which can be set by executing the program with SWITCH 1=1. This produces 
a listing of all messages transmitted. Through the use of the Logical Station Number (DTA-LSN) which is at- 
tached with each message, the program is able to respond to the correct station from which the message was 
received. The program uses the RR program attribute to eliminate restictions on the allowable command set. Re- 
fer to the B 1000 Systems System Software Operation Guide, Volume 1, form number 1108982, for an explana- 
tion of the RR program attribute, session numbers, and the job spawning mechanism. 


NOTE 
Since this program uses the LS command, the program cannot be executed with its 
LS boolean set. Therefore, if this program is to be executed with the SMCS program, 
the execute information must be entered in the SMCS/JOBS file and the ON com- 
mand entered from a terminal or executed from the ODT. Refer to the B 1000 Sys- 
tems System Software Operation Guide, Volume 1, form number 1108982. 
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OOOLOOSNEWID "“ODT.91" 


000200% 


WARNSUPR 


O00 300XXREF 


000400 
000300 
000400 
000700 
000800 
000900 
001000 
001100 
001200 
001300 
001400 
001300 
001600 
001700 
001800x 
001900x 
002000% 
002100k 
002200k 
002300 
002400 
002300 
002600 
002700 
002800 
002900 
003000 
003100 
003200 
003300 
003400 
003500 
003600 
003700 
003800 
003900 
004000 
004100 
004200 
004300 
004400 
004500 
004600 
004700 
004800 
004900 
003000 
005100 
003200 
005300 
003400 


IDENTIFICATION DIVISION. 


PROGRAM-ID. SIMPLE-74. 
AUTHOR. TIO. 
DATE-WRITTEN. 08-01-80. 
DATE-COMPILED. 

SECURITY. NONE. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. B-1985. 
OBJECT-COMPUTER. B-1985. 
SPECTAL~NAMES. 
SWi IS ON STATUS SW-1 
SW2 15 ON STATUS SW-2 
SW3 1S ON STATUS SW-3. 


SW 1 
SW 2 
SW 3 


IF ON TRACE INPUT-OUTPUT. 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 


SELECT RMTE ASSIGN TO REMOTE 
SELECT ASSIGN TO QUEUE 
FILE STATUS IS FILE-STATUS 
ACTUAL KEY IS Q-KEY 
RESERVE 10 AREAS. 
SELECT ALINE ASSIGN TO PRINTER RESERVE 2 AREAS. 
T-0-CONTROL. 
SAME RECORD AREA FOR RMTE, Q. 
DATA DIVISION. 


FILE SECTION. 
FD RMTE. 
O1 RMTE-DATA-MESSAGE. 


O2 DTA-MESSAGE-TYPE PIC 99, 

02 DTA-VARTANT PIC 9. 

02 DTA-LSN PIC 999. 

O2 DTA-TEXT-SIZE PIC 9(4)., 

O02 DTA-REMOTE-FILE-NO PIC 999. 

Q2 DTA-TIME PIC 9(7). 

O02 DTA-TRAN-NO PIC 999, 

O02 DTA-ERROR PIC Xx. 

O02 DTA-TALLYS PIC 9(9), 

02 DTA-TOGGLES PIC 9(8). 

02 DTA-TERMINAL-TYPE PIC 99. 

02 FILLER PIC X(4). 

02 DTA-TEXT PIC X(400). 
Q1 REMOTE-RECORD-IN PIC X(450). 
O1 REMOTE-RECORD-OUT PIT X(140). 


FD Q 
VALUE OF MAXSUBFILES 14 
VALUE OF MAXCENSUS 100. 


RESERVE 3 AREAS. 


003400 
003700 
005800 
003900 
0046000 
006100 
004200 
004300 
006400 
006500 
006600 
006700 
006800 
006900 
007000 
007100 
007200 
007300 
007400 
007500 
007400 
007700 
007800 
007900 
008000 
008100 
008200 
008210 
008220 
008230 
008300 
008400 
008300 
008400 
008700 
008800 
008900 
009000 
009100 
009200 
009300 
009400 
009500 
007400 
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003500 01 QUEUE-RECORD. 
05 SPAWN-HEADER. 
10 MSG-TYPE PIC 99, 
88 SPO-QUTPUT-TEXT VALUE 04, 
10 FILLER PIC X. 
10 JOB-NUMBER PIC 9(4). 
10 USERCODE PIC 9(10). 
10 SESSION PIC 9(3). 
10 TIME-STAMP PIC 9(4). 
10 MESSAGE~-SIZE PIC 9(4), 
10 USERCODE~INDEX PIC 9¢4), 
10 FILLER PIC X(14). 
03 MESSAGE-TEXT PIC X(350). 
FD ALINE. 
O1 PRINT-RECORD PIC X(132). 
WORKING-STORAGE SECTION. 
77 FALSE-SET PIC 9 COMP VALUE 9. 
88 TRUE-SET VALUE i. 
77 = REMOTE-EXCEPTION PIC 9 COMP VALUE 0. 
88 AT-END-TRUE VALUE i. 
77 MONITOR-FILE-STATUS PIC 9 COMP VALUE 0. 
88 MONITOR-FILE-OPEN VALUE 1. 
77 RESULT PIC 99 COMP . 
77 —=O PIC 9 COMP. 
77 FILE-STATUS PIC XX VALUE "OO".”. 
88 Q-EMPTY VALUE "94". 
88 Q-FULL VALUE "95". 
77 Q-KEY PIC 9(8) COMP VALUE 6. 
77 IDENTIFIER-2 PIC 99 VALUE 2. 
77 IDENTIFIER-64 PIC 99 VALUE 4. 
77 IDENTIFIER-12 PIC 99 VALUE 12. 
01 QUE-MESSAGE. 
05 FILLER PIC X€4) VALUE "OU O". 
03 FILLER PIC X(8) VALUE "/HHOOOOO". 
03 ZIP-LSN PIC 9(3) VALUE ZERO. 
0S FILLER PIC X(12) VALUE "LS RRO SZ". 
O35 ZIP-SESSION rie 999% 
03 FILLER PIC X VALUE SPACE. 
03 ZIP-MESSAGE PIC X(400). 
QO1 MESSAGE-BUILDER. 
03 FILLER PIC 9¢(46) COMP VALUE @3C27D2e. 
0S MSG PIC X(80). 
03 FILLER PIC 9(14) 
COMP VALUE @27E23C27D21103@., 
01 TEMPORARY-MESSAGE. 
05 TEMP-MSG X(80) OCCURS 3. 


009700 
009800 
009900 
010000 
010100 
010200 
010300 
010400 
010300 
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EXCEPTION-@ SECTION. 
USE AFTER STANDARD EXCEPTION PROCEDURE ON Q. 
Q-EXCEPT. 


PIC 
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010400 DISPLAY “QUEUE FILE ERROR CONDITION, LSN = " DTA-LSN. 
010700 

010800 EXCEPTION-REMOTE SECTION. 

010900 USE AFTER STANDARD EXCEPTION PROCEDURE ON RMTE. 
011000 REMOTE-EXCEPT. 

011100 MOVE “REMOTE FILE EXCEPTION “ TO DTA-TEXT. 
011200 MOVE 1 TO REMOTE-EXCEPTION. 

011300 END DECLARATIVES. 

011400 

011410 

011500 INITIAL-SECTION SECTION 1. 

0114600 BEGIN-SECTION. 

011700 OPEN I-O RMTE. 

011800 OPEN INPUT Q. 

011900 IF SW-1 


012000 MOVE 1 TO MONITOR-FILE-STATUS 
012100 OPEN OUTPUT ALINE. 
012110/ 


012200 MAIN-SECTION SECTION 0. 

012300 OUTER. 

012400 PERFORM LOOP UNTIL TRUE-SET. 
012500 LOOP. 

012600 WAIT UNTIL READ-OK ON RATE 


012700 READ-OK ON @ (1) 

012704 READ-OK ON O CIDENTIFIER~-2) 
012708 READ-OK ON O (3) 

012712 READ-OK ON O (4) 

012716 READ-OK ON O (35) 

012720 READ-OK ON O (CIDENTIFIER-4) 
012724 READ-OK ON O (7) 

012728 READ-OK ON GO (8) 

012732 READ-OK ON QO (9) 

012736 READ-OK ON O (10) 

012740 READ-OK ON O (11) 

012744 READ-OK ON O CIDENTIFIER-12) 
012748 READ-OK ON O (13) 

012752 READ-OK ON GO (14) 

012800 GIVING RESULT. 


012810 DISPLAY "RESULT IS TRUE FOR “ RESULT. 

012900 IF RESULT = 1 

013000 PERFORM HANDLE-REMNOTE-MESSAGE ELSE 

013100 PERFORM HANDLE-QGUEUE-MESSAGE UNTIL Q-EMPTY. 
013200 MOVE ZERO TO FILE-STATUS. 

013300 HANDLE-REMOTE-MESSAGE. 

013400 READ RMTE AT END MOVE 1 TO REMOTE-EXCEPTION. 
013600 IF MONITOR-FILE-OPEN 


013700 MOVE RMTE-DATA-MESSAGE TO PRINT~RECORD 
013800 WRITE PRINT-RECORD. 

013900 IF AT-END-TRUE 

014000 MOVE O TO REMOTE-EXCEPTION 

014100 ELSE. 

014200 PERFORM PROCESS-REMOTE-MESSAGE. 


014300 PROCESS-REMOTE-MESSAGE. 
014400 MOVE DTA-LSN TO ZIP-SESSION. 


014500 
014600 
014700 
014800 
014900 
015000 
015100 
015200 
015300 
015400 
015500 
013400 
013700 
015800 
015900 
014000 
014100 
016200 
014300 
014400 
014500 
014400 
014700 
014800 
016900 
017000 
017100 
017200 
017300 
017400 
0175300 
017600 
017700 
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IF DTA~TEXT = SPACES GO TO EQJ. 
MOVE DTA-TEXT TO ZIP-MESSAGE, TEMPORARY-MESSAGE. 
MOVE DTA~LSN TO ZIP-LSN. 
CALL SYSTEM ZIPSB USING, QUE-MESSAGE. 
PERFORM WRITE~REMOTE-FILE. 
IF MONITOR-FILE-OPEN WRITE PRINT-RECORD 
FROM QUE~MESSAGE. 
HANDLE~QUEUE~MESSAGE. 
READ @ WITH NO WAIT AT END DISPLAY "NO MESSAGE". 
IF MONITOR-FILE-OPEN AND (NOT O-EMPTY) 
MOVE QUEUE~RECORD TO PRINT~RECORD 
WRITE PRINT-RECORD. 
IF SPO-OQUTPUT-TEXT AND (NOT Q-EMPTY) 
MOVE MESSAGE-TEXT TO TEMPORARY-MESSAGE 
PERFORM WRITE-REMOTE-FILE. 
WRITE-REMOTE-FILE. 
MOVE SPACE TO RMTE-DATA-MESSAGE. 
MOVE 00 TO DTA-MESSAGE-TYPE. 
MOVE 90 TO DTA~-TEXT~SIZE. 
MOVE ZIP-SESSION TO DTA-LSN. 
PERFORM WRITE-REMOTE VARYING I FROM 1 BY 1 UNTIL I = 4. 
WRITE-REMOTE. 
MOVE TEMP-MSG(T) TO MSG. 
IF MSG NOT = SPACES 
MOVE MESSAGE~BUILDER TO DTA-TEXT 
WRITE REMOTE-RECORD-OUT. 
FINAL-SECTION SECTION 1. 
EQJ. 
IF MONITOR-FILE-OPEN CLOSE ALINE. 
CLOSE RMTE. 
CLOSE Q. 
STOP RUN. 
END-~OF~JOB.. 
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COBOL68 REMOTE FILES AND COBOL74 QUEUE FILES 


COBOL68 REMOTE FILES AND COBOL74 


QUEUE FILES ON THE B 1000 


Many differences exist between the B 1000 COBOL68 (Burroughs traditional) method of handling data communi- 
cations functions and the COBOL74 method (which reflects both the ANSI X3.23-1974 and Burroughs Stan- 


dards). 


This appendix specifically describes the two methods of message communication between the COBOL application 
program and the system, when more than one program opens the same remote file name (COBOL68) or refer- 


ences the same symbolic queue name (COBOL74). 
Figure G-1 is a block diagram of the COBOL68 remote file concept. 


PROGRAM 
A 


REMOTE FILE 


NAME=XYZ 
NUMBER=1 


MESSAGE CONTROL 


NETWORK CONTROLLER 
DEFINITION 


FILE XYZ: FAMILY L»M,N 


Figure G-1. 
1108883-001 


PROGRAM 
B 


REMOTE FILE 
NAME=XYZ 
NUMBER=2 


SYSTEM 


COBOL68 Data Communications 
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COBOL68 programs declare remote files. Each time a COBOL68 program opens a remote file, regardless of the 
remote file name, a unique file is created, opened, and assigned to that program. Thus, it is possible (under con- 
trol of a message control system (MCS)) to run multiple copies of the same program from different stations, 
or declare the same remote file name in different programs, with a guarantee from the system that messages to 
and from individual programs will be correctly isolated to the appropriate program. This is handled by assigning 
a unique remote file number to each remote file opened, even if the remote file names are the same. 


In Figure G-1, program A opens the remote file named XYZ, and the Network Definition Language (NDL) as- 
signs to that file remote file number 1, which is the data communication system’s method of identification. Pro- 
gram B opens the remote file named XYZ, and NDL assigns to that file remote file number 2 (or some other 
unique number). Since the network controller definition requires specification of a remote file name (not a num- 
ber), it is possible to control multiple, unique physical remote files, by specifying one remote file with its associ- 
ated station list in the network controller. 


The controlling MCS is responsible for approving or denying the second and any subsequent open of the same 
remote file name. The approval or denial of the open is determined by a variety of factors, such as authentication 
of the LSN list. 


If there is no MCS, the second and any subsequent open of the same remote file name results in a denial of 
the open from the network controller, with the message FILE LOCKED. 


In COBOL68, a program may initiate communication to a specific terminal, which was approved in its remote 
file open, and that terminal remains assigned to the program. This is done by association of a Relative Station 
Number (RSN) within a station list for that remote file, as defined in the network controller. 


The rules stated here for COBOL68 programs actually apply to all B 1000 languages except COBOL74. Figure 
G-2 is a block diagram of the COBOL74 remote file concept. 


G-2 
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PROGRAM PROGRAM 
A B 


QUEUE 
NAME=XYZ 
NUMBER=1 


MCS (optional) 


NETWORK CONTROLLER 
DEFINITION 


FILE XYZ: FAMILY LyM,N 


Figure G-2. COBOL74 Data Communications 
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In COBOL74 programs, the concept of remote files does not exist. The user specifies a symbolic queue file name, 
and, by means of the associated CD definition, messages are passed to and from an actual physical file. The 
actual file is identified by the symbolic queue name. The symbolic queue name must be the name of a remote 
file as defined in the network controller. When the COBOL74 program does the first RECEIVE or ENABLE 
INPUT operation, the system looks for a COBOL74 queue file already open, with the same name as the symbolic 
queue name specified in the appropriate CD of this COBOL74 program. If no such queue file is open, the system 
opens the file, with the name as specified in the symbolic queue name. If such a queue file is already open, 
messages to and from this program are directed to the queue file of the same name. 


In Figure G-2, program A, under control of the appropriate CD, references symbolic queue name XYZ, and 
the system creates, opens, and assigns to this queue file the number 1. Program B, under control of the appropri- 
ate CD, references symbolic queue name XYZ, indicating that messages are to be assigned to the physical queue 
(number 1) created by actions taken in program A. Since both programs A and B share the queue file, the MCS 
is optional, at least for this function. 


The end result of this is what appears to the user to be a mixup of messages among different COBOL74 programs 
defining the same queue name. This is as defined by both ANSI X3.23-1974 and Burroughs standards. Both stan- 
dards state that file sharing is to be invoked when multiple programs define the same queue file name. A 
COBOL74 program reading from this queue file always reads the top message in the queue. 


If file sharing is not the desired result, the COBOL74 programmer must take specific steps to avoid this feature. 
One method is to avoid the ANSI X3.23-1974 standard and use Burroughs remote files (as in COBOL68). If 
adhering to ANSI X3.23-1974 and Burroughs standards is important, then each COBOL74 program’s symbolic 
queue name must map onto a remote file declared with the same name (each unique) in the network controller. 


The preceding action complicates the assignment of stations, since the COBOL74 program must also know the 
name of the station as defined in the network contrcller in order to initiate communication to any particular 
station. In COBOL74, there is no direct path betweer a program and a station. Station identification must be 
passed along as part of the message from or to the COBOL74 program. Station identification is most easily estab- 
lished by initiating communication with a RECEIVE operation, which inserts the station identification into the 
appropriate field in the CD. 


COBOL68 REMOTE FILES AND COBOL74 QUEUE FILES UNDER 
CONTROL OF AN MCS 


Use of an MCS can change some of the rules defined in previous paragraphs, as an MCS can be given power 
at a level higher than, and thus overruling, that of the COBOL program. 


SUPERVISORY MESSAGE CONTROL SYSTEM (SMCS) 


Under SMCS, multiple COBOL68 programs can open the same remote file name, creating individual remote files 
with the same name but unique numbers. SMCS approves the second and any subsequent open of the same re- 
mote file name. Refer to the B 1000 Systems Burroughs Network Architecture (BNA) Installation and Operations 
Reference Manual, form number 1127578, for additional information. 


Likewise under SMCS, multiple COBOL74 programs can reference the same queue file name, but, in this case, 
the programs physically share the same queue file (both name and number are the same). SMCS approves the 
second and any subsequent attachment of COBOL74 messages to an already established queue file. 
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GENERALIZED MESSAGE CONTROL SYSTEM (GEMCOS) 


Under GEMCOS (as under SMCS), multiple COBOL68 programs can open the same remote file name, creating 
individual remote files with the same name but unique numbers. GEMCOS approves the second and any subse- 
quent open of the same remote file name. 


GEMCOS does not allow the COBOL74 queue file sharing function to work in a GEMCOS controlled environ- 
ment. GEMCOS intercepts the second and any subsequent open of the same queue file name and denies it. Prior 
to the Mark 10.0 system software release, this was done in order to protect the GEMCOS recovery function. 
Prior to the Mark 10.0 system software release, NDL data messages did not carry the job number for COBOL74 
programs. The effect of this was the inability of GEMCOS to determine the job from which a message originated, 
in order to restore that message during a recovery. In the Mark 10.0 release of NDL, this restriction was removed, 
as follows. 


If the REMOTE.FILE.NO field in the data message header is blank, the five bytes used for the TRAN.NO and 


ERROR fields are used to hold the job number of the COBOL74 program issuing the SEND. Refer to Section 
7 in the B 1000 Systems Network Definition Language (NDL) Reference Manual, form number 1073715. 


1108883-001 G-5 


INDEX 
6°29 
6729 


11-6 


i1one 
synbole 


B 1000 Systems COBOL74 Reference Manual 
ICTURE symbol» 
er apt 
CTUR 
viated combi 
exceptions 


i 


e 
T 


Q 
om OJ 
| t iY 
OenD Ta) 
ont gent 

toa a 
ace io 
Oo O&O = 
MS a onl 1 
pore us 
Pe ent fe 

- a 
ata paad 
em DO iw7 
Ce 4 
Oel Ta) 
eerln ny 
OR RP & 
wi a Co and 
COP. wd ede 
~~ es ei lot 
oad - we 

OLA M et ' 
bm § PEMMeaa 
Zin aMint og 
- Mat @ 
Oarraa Te 
Ow SDH a Die 

CMe Ww 
Lj Dat § weet a 
OE Oe Fe ew 
<@ wi <<€ 0 
A elu & G) panto ge 
ABO aS wy 
Lee Ow zo 
a AMES KO wh © 

—=£oc ants 
| od eet RE Oe he Bes 
LO) me Ce Ou VY 
Lili) re Oe 49 9 
QOoy 
Ovo 
Kez 


8-3 


7-103» 
8-25 


7797 » 
B-21e 
E=2.3 


5°13 > 
7-37 
7-37 
7-30 
67-15 
77-1265 
» 
? 
TC 
17990 7714s | 


7 
eee phraser 


771040 


ACTUAL KEY clause» S~10>- 
7730» 
NG CCORR)» 
sults» 
PAGE phraseps 
phrase» 
rasere 1075s 
M statement 
tatement» 
statement» 


ohra 
id 
6- 


OF 


CES 
ame clause. 


T clauses 


eQw Sul 


fa) 
oud 
t] 
@ 
ry 
a § 
~~ © 
8 ol 
© 
ol « 
pa) 
a 6S 
oS & 
a £ 
~ 
' re) 
~ 
+t 
a or 
ONOA) 
ALb fe 
~Mtyse 
NR Ne 
a o 
ais a a 
wf BoD 
MLA COM 
QO Orewrety 
ew % Ew 
eons 
C2 0? de? dr Oe 
= OD CO 
fm wy OL. 
Ui eB 
mo Oli 
<< ow 
OLS A3 
0. A k= 
aad wed nd 
<¢< 


7-25 


a 

wn 

Cc 

° 

= 

=) 

Ss = 

wt) ao] 
aD CAM 
i] ONIA 
Goa OF Ff 
rtA® hh he 

Cal i< 
ay Osea 
LA me 
= etc 
Ea BOO 
om ome OF 2g 
wh Oey 
3 fs ee ond 
i= 3 Rohe: 
De THES 
we ooo 
‘= ceo 

Qa P= 
Sluil Ox 
Os<w FED YD 
OQ ws Oe © 
[om 2 Qs 
am «a ED 
noOvwvoe eG 


ba) DR ere 


85 
S23 


77-15 


7730 
7-18 


| Sea rd 


Bl» 875 
hmetic operators» 7715 


Woet 


_attribute»s 8-1, 
ibutes 5&~ 
c expression» 
TE statement» 
ion condition» 


conditions 


a AVILO V8 
[Ut wWOL” 
Lad GLa Lalo 
[oa Sn at ad «oa 
<COctce 0 


7-30 
B27 


hmetic statements» 


hmetic-statement>» 


arit 
arit 
arit 


1108883-001 


B 1000 Systems COBOL74 Reference Manual 
INDEX (Cont) 


S"%s Brl7» B-22 


65719» 
771006 


77198 


ING/DESCENDING 


7~71 


626 


ING KEY phrases 
GE statement» 
URS clausepe 

RCH statements» 
T statement» 


QE ome 


KEYs 7-10) 


ASEL LAS Lar 


5°*5» 8°56 B-2 
clauses» 3-17» 
9-6 


T7790% 77999 7"1255 1075» B20 
6-5 


5"16» 


PAGE SNE 7-126 
-126 


hrasep 


B-=2 » 
a=3 


8-2 


onditions 
e-name» 


| ie 
ttributes 


qi ea 


Br2A»s 
J-7 » 
6729 


3 ee 
tribute, 
exception» 
PICTURE symbol» 


ape 


5 


B 


8-5 
B-2. 


g=2 
» 7 
19 
7-1 


T 
BEGIN“TRANS ACTION statement» 


B-21> 


ED attribute» 
tatement 


tribute» 8-2» 
ement » 
tement>» 


B-7 


9-7» 
F215 
9-21» 


6745 


11-74 
Bri» 3°59 


7-121 


6-29 
ements 7r41» 8-12 


374 
RO clausere 56719» 
ausepr 
INDEX clauses 
ibutesr 
D-2 


BINARY» 8-6 : 
binary arithmetic operators, 
BNA» 5-10> 
Boolean expressions» 
BUFFERS attribute» 
7*64»9 77~B4p 


BY» 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 


LL SYSTEM DUMP» CALL SYSTEY 2 YP» 8-12 
NCEL statements 744» 8-12 

CALL statements 7-42 

imperative statements 774 


CA 
CA 


categories of verbs» 7°32 


CCI options» 1174 

CO» 6724» B-9» 8~10 

CD entry» 6756 

cd-namae» 6°56 

CENSUS attributes 8-2» 8-6 


CHANGE Statements 8-3 


CHA NGEDSUBF ILE» Bm2s 8-6 
CHANKEL nne 5~5e 
CHANNEL number » 7-104 7-126 
characters» 2-2 
arithmetic», 2°74 
editing» 274 
punctuations 273 
retation conditionss 274 
set» 273 
character“strings 275 
CHARACTERS» 5-45 7-64» 8-16 
class conditionsse 7720 
ciasses of data» 2-14 
CLEAR» 1173 
CLOSE statement» 7-455 9-7 J-Lies 10°Se B-27 
seperartve statementr»r 774 
USE FOR DEBUGGING statenents 10-5 
CLOSEC attributes &8-2Ae 3- 
CLOSEERROR axceptions 9-7» I-11 
CLOSEPENCINGs O3-2Ae 8-7 
CODE options 11°5 : 
code segeants: compiter timits» 10°10 
CODE“SET clause» 674» O77» B-5 
CODEFILE attributes 8-6 
coding 
forms 3-1 oo 
Environment Division» 5722 
File Sections 67-6  _. 
Indentifitcation Livistons 472 
Linkage Sections 6753 
working~Storage Sections 6°50 
COLLATING SEQUENCE clause» S45 7-112» Bri 
COLLATING SEQUENCE phrase» 7-71» 7-108» B=1L7» B-22 
COMMA» S“5e B=2 
common phrases» 7°28 
communication description structures 6756 
Communication Sections 67-56» B= 4» B=9 


communication=description entry» B-4 

compile records 1172 

eee ice control» Li-1 

Compider Controt Image (CCI)» 11-73 

COMPILER LIMITS» 10~10 

compiler ontionss 11°73 

compiler-directing sentences 7-74 

compiler-directing statements» 774 

complex conditionsse 7-22 

complex key conditions 9-6 

COMPUTE statement» 7-50» E 
imperative statements» 7 


1108883-001 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 


conceptual characteristics of a file» 2-13 
conditton-namere 2-7» 271th» 6743» 6-50 
condittion-names conditions» 7-21 


conditional 
expressionsse 7-18 
sentencese /74 
statements» 773 
variables» 7-21 
conditions 
abbreviated combined retatior conditions» 7-25 
combined conditions» 7-2 
complex conditionse %-2? 
on 
on 
=I 


Se T~w21 
» (723 


condition-name conditi 
evervacton rules» 7726 

ated simple conditi 
re ation conditions» 7 
sign conditionss 772? 


siaple conditions» 718 
SWitch"status conditions» 7721 


Configuration Sections 5-25 10-35 Bri 
connectives» 278 . 
control relationship between ¢crocedures» /-6 
CONTRCLCECK attributes 3-6 
COPY statement» 7-51 

compiterc-directing statemante 7-51 


CORRESPONCING CCORR) phrases coe 7-28» 771 


18 
~125 B17?» 8-124 
ADC statements 7°37 
MOVE statements» 7-74 


CORRESPONDING phrase» 6-8 
COUNT» 7-121» 
CREATE statements 9-125 I-16» 9-18» I-20» I9-22e Br2? 
CREATE/TABLE utility» 6-9 
CREATIONDATE attribute» 38-1, 8-5 
CRUNCHs 7745» 7746r 771038» 7-11le Br17e B-22 
CURRENCY SIGN clauses 375% Br2 
CURRENT» 9-21 ; 
current record pointerer o711 
CELETE statements 7-54 
CPEN statement, 7-81 
READ statementrer 7790» 7-9L» 7-920 1°93 
REWRITE statements 7-97 
START statements 7-113 
WRITE statements 7-127 
CURRENTBLOCK attribute» 3-1» 8-5 
DASCL» 9-125» 9-22 
DASCL WERIF Ys 9-7 
DATA» 7794» 876 
DATA BASE MANAGEMENT» Gel 
data base structures 9-2 
data comm sample program» 6756 
DATACCMPRESSION attributer 8-2A» 8-6 
data description 
entries ot per than concitionsrnames» 6748 
entry» 6719 
data dictionary entries eit ae a Limit» 10-10 
Data Civistons bel» 77ti2b» In B-4 
DATA RECORDS clause» 6~4>» “10> B-S» B-6 
Data~Base Sections Ir-2» B~-26 
datatnamer 2-6» 6°22 |. 
datastnamaes compiler limit,» 19°71 
data-set*namer 8725 
DATAERROR exceptions 9°*7e Fr109 G12» Im-1l4e I-17 > 
9-207» 9-23 


INDEX (Cont) 
B=2A> 


attribute» 
ceptione 978» 


B 1000 Systems COBOL74 Reference Manual 
NPENDING>» 


DB» 9-2 


< 
~ 
2 
Len) 
wr 
uw 
a a 
v= = 
wt ise! 
i] wo be 
eee | oO 
Ces oO 
o Le t & 
1m ao oa 
~ Ce a Pre, Peo Pan coat 
AO Wes Tf a 
Omani i §€ OOO tam 
ewMUIOD OO rteteti 
WD Caw ot et wt Qe 
woe *ea O09 
LJ YW ® & et QIM se 
Zul Zui! § 8 


precrrpeeron 
QOoogovVonove & 
WDIAIQYOIVIIA 3 
laslaniveisslealsnlaalasisal- oho! 
ad Lad bated bated Lid Ltd Late La ated Ld 
AqaoaggSHaceaest 


8-27 
Bw 24 
B~ 10 


t~-2 
E~13>» 
77-14 
B=-2 3» 
B-10 
clauses» 6°57» 


85 
105 » 


CEBUGGING statement» 


5-5» 
10-5 

F-14 
10-6 


J- 12 


8-10 
714s B10» 8-11» 
jon» 974 
Statement» 
hrases 771150 7-121> 
Bw-24 
utes», 8-2» er 
6719» 6-26» 
6° 19» 
6"57>s 
8-2s 
7-55» 
7°59 


SE dectlaratives 7-14 
SE 

21» 

S attribute» 


Y phrasep 


ases 


p 

~1 

b 
ttribute>s 


tement » 
tatement » 


a 
FOR DEBUGGING dectarative, 


DECIMAL“POINT IS COMMA clause» 
U 
U 


declarative-sentences 


declarativese 


B~14 


& 

2) 

' 

fe 6] 

® 

AJ 

A 

- 

iJ 

Pr 

% 

LY 
OQ wt 
eat eat 
| | 
cCemM 16 
ond | 

e of 
aw ~¥ 
LAH Of 
ml § ON 
Can & 
'- moa 
owt & & & oe 

Low EC 
wi CGD 
On 3 & & 
ow wt OD 
‘m= a 1 Oa 
Aw & «a 
&cOoWwe 
oO@ OW“ 
ee= xz 

@ Oer @ 
bt dd PE D> 
free fem 
Dw + LJ 
BAe 
o jr 
Ga SQ © 
Ct Ch 4 
ot el *** O., EF 
C0. $= (9 ne 
LY 
Td oe 
3a 


B-15 


7° 
7-57 


B~14» 
TEGOGRY attributes 9-7 


9-7» 9-8 
9-7 
8=5 


ton 


mente 77°57» 
tatements» 7750 
al statements » 
e statement» 
R phraser 
pt 

TUS attributes 


OR exce 


1108883-001 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 


DUPLICATES exceptions 9-8» 9-10 % I-1l4e Ir17%» 9-23 

DUPLICATES phrase» 5-18» 5-19 

EBCOICs S-5» 8-6» B-2 

EBCDICLABEL attributes» 38-6 

ellipsis» 272 . 

ELSE NEXT SENTENCE phrase» 7-63 

ELSE phrase» 7763» B-15 

ENABLE statements» 7-59» 10-6» 3715 
USE FOR DEBUGGING statements 10-6 

END DECLARATIVES» 7-1» 68-10 

END KEY clauser 67°93» B79 

END“GF-PAGE phrase’77126e 8-25 

END-“TRANSACTION statement » 9-7e 9-L4» I-19% B-27 

Environment Divisions S-1l» 7-126» 8-1 

EGP phrases 7-°126% B25 

EQUAL» 7799» 9-6 

EQUAL TO» 8-2 

EQUAL TO relations 7-18 

EQV¥V» 11-3 

ERROR KEY clauses 6°757/s 3710 

ERROR PROCEDUREs 77-1255 8-25 

EXCEPTION PROCECURE®s 7125» 3°25 

exception typer 9-7 ts 

EXIT PROGRAM statements 7-51» B-15 


CALL statements 7-4? 
CANCEL statements 7-44 


EXIT statements» 7-60» 37-15 
imperative statements» 774 


explicit attributes» 27°23 
explicit Procedure Civisior referencesse 2-22 
eee specificationss 2°22? 
licit transfers of control» 2-22 
EX END phrases 779% 77125» 8-18 
external filename» 11°73 
EXTMOCE attributer 8-25 8-6 


FATALERROR exception» 9-8» 9-10 thru Ze 13>» 
9-15 thru 9-21» 9-23 


FD» 6-24» B-5 
FEDLEVEL options 11-7 


figurative constants 278 
FILE ATTRIBUTES» 8-1 
elchanaeeric attribute-names» 8-1 
CHANGE statements 8-3 
FILE ATTRIBUTE ICENTIF IER» 3-1 
FILE ATTRIBUTE-NAME DESCRIPT YONS» 8-5 
anemonic attribute-namess» 8-2? 
nuger ic attrioute= namese 3-1 
VALUE OF clause» 38-4 
file description entry» 674 
File Section6~3» 7-126» 9-25 5-4 
FILESTATE attributesr 8-2A» 8-7 
FILE STATUS clauses S-12- S18» 7-127 B-3 
FILE“CONTROL Paragraphs 3-175 3-1» 8-2 
filenames 276 
FILEKIND attribute» 8-2 8-6 
FILESECTION attributes, 8-1» 8-6 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 


R 
NEXT» 5- 8 
s 
i 


ection expressions 9-4 


e 
Ts» F764» 9~hoeo 9°75» B-16» &=- 26 
D attribute» 8-5 

d portions 777 


FLEXIBLE attribute» 8-2» 8-6 


FOR» 77-1155 77121 
format punctuations 2-2 
FORWARD? 8-6 


FRAMESIZE attribute» 8-1 
FREE statements 9-8» 9-1] 
FROM» 7784» 77959 7797» 


FIRS 
FIXE 
fixe 


3-5, & 8-7 
9°12 » 4s 9-16 

104.» 7- » F-12660 9-21»e 
10-5». B-ll 

Generalized pe ere Expressions 96» I-6A 


generated coder 
generic terms» 2-71 


“bat 0 
| i) 


» 
“1 
18 


ase» 7757» 7-71» 7-108» F-118» Br1l2e B-22 
ements 7~37 
tatementsr 77-57 
tatements» 7-71 
statements 7°78 
tements 7-108 
statements» 7-118 
1 
e 


®o osrmeoo 


ments 77620 7~10ie Fr11d0» 10-5» 8-15 
tatements 7-40 

ive statements 7-4 

atements» 7°73 

statements» 7739 

tatements» 77101 

temeants» 771109 

U FOR CEBUGGING statements 1075 


GREATER THAN relations 7-18 


HEADER» 5-10 
hexadecimal titeratls» 27111 


HIGH“VALUE» 5-6 

HOSTNAME» Sil» 8-8 

ImO phrases 7-79» 77112 “125» B-18 
td 


7 
[-O-CCNTROL paragraph> 5-21e E- ts Bn4 
“0 status» “12 


o 
= 
© 
An nta ses 4 We E> 
OOmmamnsro © CGocmMos 


M5 Soo aT 
~sohoS Mm BS eC 


I 

Identification Divistone Eris 471 
identification fields» 3-74 
identifier» 2-716 
IF statement» 7-63» 8-15 


conditional statements» 7-3 
imperative statement» 774 


imperative sentences» 775 
imperative statements» 7-4 


implicit attributes» 2-23 

implicit Procedure Divisior references» 2-22 
implicit specifications» 2-22 

implicit transfers of controls» 2-22 


1108883-001 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 


IN qualifier connectives 77121» B25 8-3 


incompatidle data» 
independent segmen 
index data items r 
index«namee 277 


7731 
ts» 7-7 
elation conditions 7-2 


indexsnames compiier limit» 10-11 
index=names relation conditions 7-20 
INDEXED BY clauses» 6-19» 6°25» 77100» 7- 
INDEXED FILES» 5-9» 77129 
indexings 2-21 
indicator area» 3-1 
INITIAL clause» 6°56» 7-h4s 3-9» B-16 
initial values» 6750» 653 
INITIAL VALUE» 9-12 
INPUTs 7°59» 7-799 7m1l2» 7-125 
input files» 11-1 
INPUT PROCECURE phraser 7-163» FE-22 
INPUT*QUTPUT» 7-127 
Input*Output Sections 379» B45 Ets B-2 
indexed I/0» 3-9 
relative I/O» 5-9 
sequential [/0» 5-9 
sort-merger 5°10 
INSERT statements 9-8» Il?» 9°19» E-27 
INSPECT statement» 7°63» E*15 
imperative statements» /~4 
overlapping operands» /~30 
ph abet a ha 8-1 
integer ope ne 1176 
INTEGRITY RROR exceptions 9=*B» 9-10» 9-1 
9-14 » gis, 9-1 


intermediate data 
internat file-name 
INTNAME attribute» 
INT Gs» @-57e 7-90» 
INTRINSICFILE attr 
Dee cee wee aae 
INVALID KEY condit 
7-112 77126» 1 


INVCKE phraser 9-2 
IGE RROR exception» 


IPC parameters com 


IS» 5"Se 8-2 
IS > relations 8-2 
IS = relationB-20> 
1S EQUAL TO retlati 
IS GREATER THAN re 
IS NOY < relation» 
IS NOT LESS THAN ec 
IS NOT relations 7- 
JUSTIFIED clauses 
KEY » @"59e Fuller = 
KEY CONCITION»s 9-6 
sey Words» 2-1» 2-7 
KEYCHANGED excepti 
KIND attributes 8- 
LABEL attributes 8- 
LABEL RECORDS clau 
OMITTEDs B-5. 
STANDARD option 


items 7-17 
=3 


Brle BE 

7T-94~ 7-965 77°115% 7-1 
ibuter», 8-6 
“8 9-13 

Tons 5716» (-S4e 7-90 
0-5» Beli» F-199 8-22» 


» 8-26 
9-Be 9-10 thre I-21 
piler tUimit» 10-10 


8-22 

one 7799» 7-112» 8-22 
lations 77112.» B-22 
B-22 

elations 77112, B=22 
112 

6-199 O723, B77 


90» 7"°1900» 77108» 7-1 


2» 876 


2s 8-6 
see Aw4y» Skt Il» B-5 


» Bo5 


» 9° 


Q 


106» 


9-23 


12» 


ion» 9rb» 9210» I-14s 9-23 


29 B26 


B- 7» 


B-17 


B-10 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 


ss 2-1 
8-26 
8-1, 8-7 


TRECORD attribute» 


language concept 
LASte 324, 9-5» 
LAS 


2714 


B- 16 
n - 
2 - 
description concept s» 


DING» 7-645 
A 
u 
d 


tone 11-2 
11-5 
LIMITERRGR exception» 


ot 
ptron»s 


a 


ie) 


ad 


9-10» 9-145 I-17» E-23 
{~-126 » 


9-8 » 


8-5 


b-12> 
6-14 


6~4e 


general rules» 


LINAGE clauses 


67 12> 8°5 
B-5 
3-9 
6-53 


B-5 
kage storages 


lause» 6~4» 
6°74 


6~12» 
B- 4 
6°53 


6-52» 


TING clause» 
lin 


ause» 674» 
cords» 
6°52 


"One I Oo 
Oued t 


T 
S 
age. 
noncontiguous 


SB SWI) Ure 
Nadal Lad bd Lad Lg) ae som 
Z2Z222ZE 
fad brand food fend prong fod ¢ ne 
ood eed ed ceed coed cd od 


structures 


2-10 


umerics 


nonn 
2-11 


11-5 
d 


11°5 
» hexadecimal>» 


11°5 


* 


=> 
tions 
ys numeric an 


1 
on» 

ED opt 

R option» 
ED options 
tions 1Li-5 


t 
3 
T 
A 
T 
t 


bet med booed fom poet bands pee ogun 
coed cared ced cand ceed ened wt oe? 


he + 


atemen 


od 


p 
$s 


9-4 
di record and fite conce 


selection expressions 
LUE» 


teas 


2~13 


pt Se 


5-6 


a 
A 


MAP options 1175 


mass and non mass storage files» 77127 


8~7 


B= 6p 


8-8 
attributes 8-1» 


8-2e . 


B-1>» 3-22 
5-69 Sm717e T~71s T71L09»® 7-127» 
8-4» 10-7» B-3» B-17 


7-108 
SIZE clause» S74» 


ptions 11°6 
tatenent > 


* or 


10-8 
B-9» Brill 


i-4 


1108883-001 


10 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 


MINRFECSIZE attributes Bl» 8=6» 8-7 
miscellaneous compiler controt cptions» 11-7 


mnemonic=names»r 2-7 


MODULES» 5~4 

MOVE CORRESPONDING (MOVE CORR) statements 9°73 

MOVE statement» 6°38» 7771» 771232 Br17 
CORRESPONDING (CORR) phraser 7-299 7-74 
imperative statement» 7-4 
overlapping operands» 7-39 


a filte-ids 8-13 : ; 

fe results in arithmetic statements» 7730 
LY statementyr 7-78» E-1l? 

conditionat statements 7-3 

Sel ite statment» 7-4 

au eter resultse 7-30 

SIZE ERROR phrase» 7-28 


MUSTBACKUP attribute» 8-2 A» 8-5 


eM rat Slee attributes, 8-1» 8-9 
NAME» 8-1» 8-9 
NYUSEs B-2Ar B-9 


NATIVE alphabetenamer 57>» B-2 


negated coabined conditionss 7-23 
neg ated simple conditions» 7-23 
ATIVE arithmetic“expressionse 7-22 
oper oes 11-6 
I 
0 
, 


ae 
mt ot 


E athe eure? B-25 8-7 


O» 9-40 9757 9-6» 978s 9°19» 8-26 
ENCE phrases 7763» 7799» B=15e» B=20 
RD attribute» Brier a-7 


phrases 7-94» 10-6» 8°19 
NO-~AUDIT velaucee 9-10» I-1L4&e sae 
noncontiguous working=- Shae ie F<-4 
nonnumeric literal onLiene 
nonnumeric literals» 2-10 


tf 2222222. 
So mmmmmme 


NORECGRO exceptions 9°88» I-13» 9155 Ir-L7» I~1Be 
9-21» 9°23 

norgal Boolean opticanss 1175 

NOT combined/complex conditions» 7-22 

NOT EQUAL TO relatians 8-2 

NOT retations 8-2» 1 ’ 

NOT relational operator» 7-145 

NOT siqn conditions 7°22 

NOTFOUNC exceptions 9-Bse 9-135 I-15» I71Be I-21 

NOTLOCKED exceptions 9-95 9-20» 9-140 9°23 

nouns» 276 

NO WAITs 77452 7749» 7°90 % 77935 % 771350» Br-l3e 
B“19» B-126 

NULL» 9-7» 9-12» 9-20 

numeric Literals» 2-10 

NUMERIC test» 7-20 

OBJECT“COMPUTER paragraph 57-4, E-1 

OCCURS clauses 6719s 6726» 77101» 7~“107» 10-4» B-7 

USE FOR DEBUGGING statement» 10-4 


OCCURS vatue compiter timit» 19-10 


ODT >» 576 
QOT*INPUT“PRESENTs» 7-126» 8-25 


1108883-001 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 
OF qualifier connectives 8-2» 8-3» 9-2» B-26 
OFF STATUS clause» 575% 8-2 
OFFER» 7"79» 7-82» E=-18 
OFFERED attributes 8-2A» 8-7 
OFFSET functions 7-31 
OMIT fA ea i 
OMITTED attributes», 8-6 
ON ERROR options 7“71l» 77-108 
ON EXCEPTION phrase» 771255 9°10 thru 9-220 B-25- 
ON OCVERFLOW B rase» 77115» 77121» B24 
ON SIZE ERROR phrases 7750» 7°57» 7-78» 77118 
ON STATUS phrases 5“5s» B-2 
OPE Ne 7-112> 105 
OPEN attributes 872» B-4- 8-7 
OPEN INQUIRY statements 9-19» 8-28 
OPEN statements 7°79» In19 
CLOSE statements» 77-48 
paper et hye statements 774 
LINAGE clauses 6- 
READ statements 7-91 
REWRITE statements» 7-97 
START statements 77112 
USE FOR CEBUGGING statetent» 10-5 
WRITE statements» 77125 
OPEN UPCATE statementer 9°19» B-28 
OPENEC attributes 8-2A» 8-7 
OPE NE RROR Ee 9-9» 9-10» 9°12 thru I-2E» I-23 
operands» 7~1 ; 
operations on data items» 9-3 
operat rons on structures» 9-5 
OPTICNAL attributes 822» 8-7 


OPTIONAL phrases 5719s 8-3 
optionad wordss 2-1» 2-8 
optionss 11°73 


OR» 7-121» 1173 
abbreviated combined relatior_conditions» 7-25 
combined/complex conditions» 7-22 
negated combined conditionss 7-23 
oraan is atone 5-10 
ORGANIZATION IS INDEXED clauses 5°18» B=3 
ORGANIZATION IS RELATIVE clauses 5718» 8-3 
ORGANIZATION IS SEQUENTIAL clause» 5718» B=-3 
OTHERUSE» B-2A» 8-9 
OUT clauser 575» B-2 
OUTPUT» 7°59» 7-79» Fri2d» 77127 
output files» 11-1 
output listngs» 1171 
OUTPUT PROCEDURE» 7-71» 7-103» F175 B-22 
OVERFLOW phrases 77115» 77121» E12» B23» Br24 
CALL statement» /-4t 


overlapping operands» 7730 
*pPp* PICTURE symbols 6-29 


PAGE» 77104» 7-126» B-21» 8-25 
PAGE options 1176 
paragraph=names 2°77 
pare raphse 7-6 

ARITY attributes», B-2» 8-7 


B-27 


11 


12 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 


RM» 771105 10°75» 3-18» 3-19 
RM statement » 1-83 
eper ative statements 7-4 
FOR DEBUGGING statemente 10-5 


USE statements 7°1:75 


0 
A 
US 


phystcat aspects of a file» 2-1? 


PICTURE CPIC) clause» 6°29» 7-21» 7-122» B-7 
editing rules» 6°35 
general rules» 6°33 
precedence ruless 6733 
syntax rules» 6°33 


POINTER» 7-115» 77121» 8-24 
POP» 1173 


port filese 7749» T-f)9 T-822 T°9D0Ae 7°93% 717126C» 
77170» 8-6» B=3» D0-15 

POSITIVE» 7-22 

PRICR» 9-4» 9-S5e 9-8Bse 38°26 

Procedure Divisions 771s» 77109» 9-25 10-9 

PROCECURE DIVISION USING one eee B-10 

Pracedure Division bodye /- 


Procedure Division headers 7*2» 7-13 
rocedure-=names compiter Limits 10-10 
ROCEED TO phrases 6-12 
PROGRAM COLLATING SEQUENCE clauser S-45 77112» 8-1 
programs divisionss i- 
peoarze organizations 1-1 
Tec ane segmentse 7-7 
PRO RAM-ID paragraphs 4-1» B-l 


pseudo~text» 8-13 


punctuations 3-4 
PURGE» 7-71» 77108» E-22 
PURGE ON ERROR clauserp 77-71» 77108 


qualifications 2-18» 99-3 


queue ryt es 5*105 7-90Ae 7-91» 7-930 77126Ce 
“1272 77129» a2 b02 B= 22s B-3» Gel 

queue file familys 5- 15 

queue file program example» Fri 


Q-Emptys» S-14.5 5-15 
Q“Fulls» S-14» 5-15 


READs 7-103» 10-5 
REAC statementrer 7790% 77113 
CLOSE statements 7°48 
CELETE statements» 7-54 
OPEN statement» 7-80 
REWRITE statements 7-80 
USE FOR DOEBUGGING statements 10-5 
REAC“OK» 77126» B=25 
REACOANLY exceptions 9-9r I-1)% Ir1355» I-14» alg 
9-21» 9-23 
RECEIVE» 106 
RECEIVE statement» 7-945 B-19 
USE FOR DEBUGGING statenents 10-6 
Receane data items 6723 
RECORD» “90% 77-96% 77103 
RECORD attributes B-1» 8-7 
record concepts»s 2713 
RECGRC CONTAINS clauses 574» 6716» B-5» B56 
RECORD KEY clause» 57-10% S13» S19» 7-1Li3e B=3 
record-description-entry»s O-% 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 

recora=namese 276 
RECREATE statements 9-125 I-1b6s I-11 Be I9-“20e 922s 
REDEFINES clauses 6719» 6~27» 5738» B-7 
referenced fietid a ay compiler Limit» 10-10 
RELATIVE FILES» 
RELATIVE KEY erausee 57185 57195 B@3 
Retation Conditions» 7-18 
RELEASE» 745% 7-71» 7°108 
RELEASE statement» 7-95» 6-20 

imperative statement» 7-4 
RENAINDER phrases 7-57» 8-15. 
remote files» 57°10» S19» 8-3» C-1 
remote file program examples F-1 
REMOVE statement» II-B» JPri1Ge I-2l» B-2A 
RENAMES clause» 67-20» 6740» 3°38 
REPLACING phrase» 7-51» 7-64» B-13» B-16 
Reoenye™ headers» 1-2 . | 
RESERVE AREA/AREAS clauses 5S"17> 8-3 
reserved wordse 2-B» A-i 
RESET» 11-3 
RETURN statement» 7-96» 7-110 

conditional statements» 773 
REVERSE» 8-6 
REVERSED» 7-79» 8-18 
REWINCs 7-79 . 
REWRITE statement» 7-97» 10-5» F-20 

OPEN statement» 7-80 

USE FOR CEBUGGING statement» 1076 
RIGHT» 8-7. 
right margins 3-3 
ROUNDED phraser 7728% 7-37» 7-“50Cse T-57e» T-78>» 

7"“118» B-il 


RUN phrasee 77114» 8-22 
*S* PICTURE symbol» 6729 


SAME AREA clauses» B~4 

SAME RECORD AREA clauses 5-21 7-127» Br4 
SAME SORT AREA clauses S21» B-4 

SAME SORT“MERGE AREA clause» 5-215 8-4 

Sr ae coding» 374 

SAVEs 7-Zils 77108 

SAVE options 11-2 

SAVEF ACTOR attribute Bel» 8-7 

SDe 6°5» 6°24» 77-109» B-6 


SEARCH statements 77995 8-20 


1108883-001 


conditional statement 773 


SECTION» 8710+ 8-11 . 2k. 
section priority number» compiler Liwit>» 
tion-namer 2-7 

tions» 7-6 

URITY paragraphs B-1 

ERFOR exceptions I9"“9e 9-19 


sec 
sec 
SEC 


SECURITYTYPE attribute»r 8-2A-e 8-9 
peer Statements 7-103» B-21 

ment numbers» 779 
SE MENT“LIMIT>» S-4» 77102 Bt 
segwent~nuabers B-l 
seqmentations 77 
segeanrarron classifications 778 

peamegtaesa0 controls» 7-8 
ECT clauser 57-17% B-3 


10-10 


B-28 


13 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 
selectionrexpressionre 974 
SENDs 10-6 
SENC statement» Sb» 77104» 8°21 
SPECIAL NAMES Paragraphs 5-5 
USE FOR DEBUGGING statement» 10-6 
sending data item» 6°23 
SEPARATE CHARACTER clause» 67°19» 6742» B-7 
separatorss 2°74 P 
SEQCHECK de 11-6 
SEQUENCE» 7“71» 7-108 
sequence areas 3-1 
SEQUENCE options 11-6 
SEQUENTIAL FILES» 7-129 
SERIALNO attributes 38-1» 8-7 
SET» 1173 
SET options B-21 
SET overlapping operands» 7730 
set selection expression» 9-5» P-26 
SET statements 7-106 


imperative statement» 7-4 
overlapping operands» 7730 


SEARCH statements» 7-101 
SHUTTINGDOWNs 8-2Aey 8-7 


SIGN clauses 6742» 7°21 

sign conditions 7-22 

SIGN IS LEADING clause» 67195 B-7 

SIGN IS TRAILING clauses 671)» F7 

simpte conditionss 77°13 

simpte header» 5-10 

siaple key conditon» 9-6 | 

SIZE ERROR phrase» 7728» 7-37 » 7-78» 7-107» 7-1 
Brill» Brl4» BrlS» Brl7» B8-. 


conditional statenente 7-3 
SIZE phrasew 7-116% 3°23 


SORT statements S75» S71% » FT7T1IDEPs F-12709 Br-4>p 
10-7» 8-3» B=-22 
imperative statemant» 77108 
OPEN statements 7°73 
segmentations 7-7 
USE FOR DEBUGGING statement» 1073 


Sort-Merge file descriptior entry» 6°75 
souece Ute ee pomp reer limit» 10-10 

Sane aes -3 

$o URCE- COM UTER ret ae 5-35 10-3» 8-1 


eciat registers» 2719 
cial-character words» 2 
NAMES paragraphs 5 
h“status condition 
3 
0 


<= 
a 


erb format 


OV Dias 
Poreh oo 1 


td 

e 

Sd 

0) 

139 77990 
tatement» 10-7 


1-5 


wo 


Se 
"| 
#5 
12 
-8 
= 

Ss 


5 

5 

=} 

ments 7 
7 

ING 

1 


‘ond 
AAXet 


~ 


adore eed CT OBSZAG Ae 
Secs WMV = 
CHunO MaelMh ww pn D> 
MoDBO Onna iN 
KEM Set bet ee MMC 
m~ewvD Meno 


67565» 6757 » 77105» 8-9» B-10 


1108883-001 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 


STOP statesenter /~11 
figurative consta 
imperative statem 


STORE statesments» 9-1 
Stine over Lapping o 


NG statements» 77115 


figurative consta 
imperative statens 
overlapping opera 


SUBFILE» 0-19 

Su scr apt ng. 2-20 
statement» 

CORRESPONDING (CO 

imperative statem 


SUMMARY options 11-7 


terminal paragraphs 


TEXT LENGTH clause» 
THROUGH CTHRU)» 5-5» 


TIME> 7-345 B11 


TIMER» 7734» 8-11 
TIMES» 6°57» 7“83» B 
TITLE attributer 8-1 
TO» 7*1065 83 
TODAYS~DATE» 7-34» B 
TODAYS*NAME » 77340 8 
TRANSLATE attributes 
translate table» 6-9 
TRANSLATE/ASCII file 
TRANSLATING attribut 
translations 6°9 
re po PICTURE Strin 
UNSTRING statement7~ 
figurative consta 


imperative staten 
overlapping opera 


UNTIL phrase» 7783» 
phrase» 77106» 


hraser 7-56» 


4 
nte 278 
ents» £74 


22 9-182 97-19% 9-22» B-2B8 


perandss 7-730 
» B=23 

nt» 2 25 

ents 7~ 

nds» 420 


(“118 » B23» Bx~24 
RA) phrases 7°28» 
ents 774 


7-118 


SWitch-names 5-3 | 

SwWwitch"status conditions 7-21 

SYMBOLIC DESTINATION clauses 5-57» B10 
SYMBOLIC QUEUE clause» 6°56 E-9 
SYMBOLIC SOURCE clauser 6-56> 8-9 
SYMBOLIC SUB=-QUEUE clauserw B-9 

SYMBOLIC SUB=QUEUE-1l» 6-56 

SYMBOLIC SUB-QUEUE-2» 6756 

SYMBOLIC SUB=QUEUE-3» 65-56 

SYNC clauses 6-445 9-145 8-27 
SYNCHRONIZED CSYNC) clauses 6°19» 6-445 B-7 
SYNTAX ope Lane 11-2 

SYSTEMERROR exceptions 9-5» 39-19 
TAG*KEY» 77108% 8-22 

TAG*SFARCH> 108» B-22 

TALLYING phrase»e 7764» 7712159 Br-16»% 8-24 


compiter tisit» 10-10 
TERMINAL chrase» 7-59» Br-14» B-15 
6°56» 6757» B-9s B-10 


7-712 7-835» 7-84 


s compiler timit»s 
2i»s B24 
nte 27 A 
ents» /- 
nds» 7° 30 


7-84,» 10°52 87-18» 
B-21 


E 
EFILE attributes 8-2» 8-8 
p 


“14 


7-108> 


10-10 


8-19 


B-2» 


B-8 


15 


B 1000 Systems COBOL74 Reference Manual 
INDEX (Cont) 


wd wn 
west WN 
Q - 
is a) ] 
tal 
~ a WN Ke) 
a ~ WW ew & A N 
am i] ' ® ° OJ © 3 
oo BM QJ ( i] fae] 
« eat = ] is a) fea) 
wy6Uf a 9 oa ® 
TKO @ Ou * eae Wt 
t~_o ww FO 4 Lael a | 
Wet | 3 a N | ° wa 
' @ Ww wd i] QO ww N 
& aha wt owt Ne] i] ma me 
CW [Spo] t ~ (2) ® e © in) 
wine & a a foo] on e NSN ww A a) 
rw -F Was a oa aa] 1 De ] N « 
wor et ZOOM a vi aa § Geert nN w- 8 ® 
t t DSOe# mo ad ’ a t- ) ion) t~ tt ™ oe Y 
se ™ OMT 0 - | Q nN t = uy ay x /& ed 
BA WR Det ot t COM wl (~ 9) ta q ~~ & Oa ® we 
Yet a e © Bt i] ie ©] | | a WMdMeM Rw UWNw aM? r¥) 
arta 2 ALOR iA - °) qm ac a n e oon wa fl mA ea ee rene oe 
Mo CNfOw Mm 8 Pa hte Nn LY] et oN Ce la) Wo Civ nm wv 
— 8 @OAIm Bara AW MIM eel a Of A) ‘ U MLA wt t= ont Aras 
Qad Bl mea wlNC 5 ee BD MID 3 mom i t] ® he od ee fF Bae on sts 
® iNnDweerarei oar Betey CO) ATA LT he a oO Ooaas @ 1 FC Ret ere I 4. ww 
dane OW DheewN - | ] i] = wal a a = iss) word warm uo FLSCNOam MH 
CIV GB eaCOOe wi «© 1 8h/ WO WO ae 4 ° o op IM 8 NOLEN OD o'r — AD Det) 5 so 
ZOU HWINS<K CV swe OH wee ‘o ~ AD eff @® atm IN 4 Ow PERI AN 260 
Saw She CA WIL ete OS ca % Ce i oe. e) + be Ww tio) ce ® eo 1 # OD TP 4 
mt O WM 7 ’¥GOC Gem a0 we Aw OI a 1 oe . ) Qa waethm Of OD Ne 6 ALJ Get 
mh ww ACUI OOOCH ODO RB DEN OO et wa @ 6 wd oe wo = 6 ew HU awn 
~~ CO OSZMAMOY ROE OD wet C Ff asd Ao 0 te ea = a evans aw Cilmi td 
=< Get «€aete FD Oe BAM £€ OF QA MM =e 8 8§ OC on We OA © Wid + Wl OL wWs> 
SA 009 amoew Or BO FO ~ Mure OD § 0 DW ww ww we OO ft Ou Me HLWO a Ww c~ JG oO 
O. Bod POM EEO PCI Di om a n & Td fe A Ls] Gc +e f/f Ze 3 BOL. << © 6 Dew OL. dL 
ZSVAQOLDPECEAi ewe w yn .vV0e D Ope de a #é«°8 & o Aw rE OD VIO Se sf eae «£eza 
Ome OM Cem Ew HH 9 w6ON LW Aewttte tt 85 © Cm 8€ 90 68 N LOV sZt zi eo @890— Suit 
QO™ WHEW Ar 2~ SCD CFC SO 8G NO Cw @ 92 fn NN COM OO Ulf SP pee et tO et he OO 
wae ~~ Llst pe Deg 2D 0 Qa += & "GO wad CD § S53 ee CREE OI NY OW OME 
WV OS Cote Ope bt eS pe ow le lela Na fF we 8 £o. | SS IRAHOrw me PWN FE Kew Lad et Lee 
iret Bil Gel COmMm WEA BG voowds = 1 am » eo & ~eWRMBOwWOosOIO NN we Ye OWwWeaermwe 
LGiwbeke BOLI PEE eo boot One alan ow vv £5 ® CDOT LA bite, NE wef oo Che 6Zz SC adw JOuwwW 
poet. ihe fink OT WIE) «£ OO OO While et =x let? =8& = had bel Siem WO BEG. WIIG 
ow REVVOHESE Owes wat ee LO * QD we £22 2 GD DEBATES Gaye we eM 
Ee lhl lal Det wd ee OS tlt ot OO a eee bebe bebe OOo 
AAMWMNY View mm» Oetaegcget ow = OC << €et FSF TF wettest =OOOO CT 
22a532>2>> —~ 2-2 8 32P?Pr> 22> 2B P2> BEEZ ZB F FEEBZFEETTEED BEET ET 


WRITE SOK» 77-1265 B-25 


16 


1108883-001 


B 1000 Systems COBOL74 Reference Manual 


INDEX (Cont) 
*X* PICTURE symbole 6°29 
XREF options = 
XSEQ options 11-7 
YOURNAMEs S-1> 8-11 
VYOURUSERCODE>» 8-1» 8-11 
ZERQs 7-22 
ZIPSB» 7-416 8-12 
«BP 


17 


Printed in U.S.A. June 1981 1108883 


